source('../env.R')
Using GitHub PAT from the git credential store.
Skipping install of 'clootl' from a github remote, the SHA1 (1f190618) has not changed since last install.
  Use `force = TRUE` to force installation
community_data = read_csv(filename(COMMUNITY_OUTPUT_DIR, 'community_assembly_metrics_using_relative_abundance.csv'))
Rows: 308 Columns: 14── Column specification ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
dbl (14): mntd_standard, mntd_normal, mntd_actual, mass_fdiv_standard, mass_fdiv_normal, mass_fdiv_actual, beak_width_fdiv_standard, beak_width_fdiv_normal, beak_width_fdiv...
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
head(community_data)
colnames(community_data)
 [1] "mntd_standard"            "mntd_normal"              "mntd_actual"              "mass_fdiv_standard"       "mass_fdiv_normal"         "mass_fdiv_actual"        
 [7] "beak_width_fdiv_standard" "beak_width_fdiv_normal"   "beak_width_fdiv_actual"   "hwi_fdiv_standard"        "hwi_fdiv_normal"          "hwi_fdiv_actual"         
[13] "city_id"                  "urban_pool_size"         
min(community_data$mntd_standard)
[1] -2.338219
max(community_data$mntd_standard)
[1] 2.34743
min(community_data$beak_width_fdiv_standard)
[1] -2.685152
max(community_data$beak_width_fdiv_standard)
[1] 1.931681
min(community_data$hwi_fdiv_standard)
[1] -2.254896
max(community_data$hwi_fdiv_standard)
[1] 2.315362
min(community_data$mass_fdiv_standard)
[1] -2.351968
max(community_data$mass_fdiv_standard)
[1] 2.114779
min(community_data$mntd_normal)
[1] 0
max(community_data$mntd_normal)
[1] 1
min(community_data$beak_width_fdiv_normal)
[1] 0
max(community_data$beak_width_fdiv_normal)
[1] 1
min(community_data$hwi_fdiv_normal)
[1] 0
max(community_data$hwi_fdiv_normal)
[1] 1
min(community_data$mass_fdiv_normal)
[1] 0
max(community_data$mass_fdiv_normal)
[1] 1

Join on realms

city_to_realm = read_csv(filename(CITY_DATA_OUTPUT_DIR, 'realms.csv'))
Rows: 337 Columns: 2── Column specification ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (1): core_realm
dbl (1): city_id
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
community_data_with_realm = left_join(community_data, city_to_realm)
Joining with `by = join_by(city_id)`

Cities as points

city_points = st_centroid(read_sf(filename(CITY_DATA_OUTPUT_DIR, 'city_selection.shp'))) %>% left_join(community_data_with_realm)
Warning: st_centroid assumes attributes are constant over geometriesWarning: st_centroid does not give correct centroids for longitude/latitude dataJoining with `by = join_by(city_id)`
city_points_coords = st_coordinates(city_points)
city_points$latitude = city_points_coords[,1]
city_points$longitude = city_points_coords[,2]
world_map = read_country_boundaries()

Load community data, and create long format version

communities = read_csv(filename(COMMUNITY_OUTPUT_DIR, 'communities_for_analysis.csv'))
Rows: 2428 Columns: 7── Column specification ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (5): city_name, ebird_species_name, seasonal, presence, origin
dbl (2): city_id, relative_abundance_proxy
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
communities
community_summary = communities %>% group_by(city_id) %>% summarise(regional_pool_size = n(), urban_pool_size = sum(relative_abundance_proxy > 0))
community_summary

Load trait data

traits = read_csv(filename(TAXONOMY_OUTPUT_DIR, 'traits_ebird.csv'))
Rows: 332 Columns: 10── Column specification ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (5): ebird_species_name, habitat, trophic_level, trophic_niche, primary_lifestyle
dbl (5): beak_width, hwi, mass, habitat_density, migration
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
head(traits)

Load spatial var

spatial_var = read_csv(filename(COMMUNITY_OUTPUT_DIR, 'spatial_var.csv')) %>% filter(city_id %in% community_summary$city_id)
Rows: 337 Columns: 3── Column specification ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
dbl (3): city_id, NMDS1, NMDS2
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
spatial_var

Summary metrics by Realm

test_required_values = function(name, df) {
  cat(paste(
    test_value_wilcox(paste(name, 'Std: MNTD'), df$mntd_standard),
    test_value_wilcox(paste(name, 'Std: Beak Width FDiv'), df$beak_width_fdiv_standard),
    test_value_wilcox(paste(name, 'Std: HWI FDiv'), df$hwi_fdiv_standard),
    test_value_wilcox(paste(name, 'Std: Mass FDiv'), df$mass_fdiv_standard),
    
    test_value_wilcox(paste(name, 'Norm: MNTD'), df$mntd_normal, mu = 0.5),
    test_value_wilcox(paste(name, 'Norm: Beak Width FDiv'), df$beak_width_fdiv_normal, mu = 0.5),
    test_value_wilcox(paste(name, 'Norm: HWI FDiv'), df$hwi_fdiv_normal, mu = 0.5),
    test_value_wilcox(paste(name, 'Norm: Mass FDiv'), df$mass_fdiv_normal, mu = 0.5),
    paste('N', nrow(df)),
    sep = "\n"))
}
test_required_values('Global', community_data_with_realm)
Global Std: MNTD median -0.36 ***
Global Std: Beak Width FDiv median 0.03 
Global Std: HWI FDiv median 0.39 **
Global Std: Mass FDiv median 0.29 ***
Global Norm: MNTD median 0.38 ***
Global Norm: Beak Width FDiv median 0.59 ***
Global Norm: HWI FDiv median 0.64 ***
Global Norm: Mass FDiv median 0.64 ***
N 308
unique(community_data_with_realm$core_realm)
[1] "Nearctic"    "Neotropic"   "Palearctic"  "Afrotropic"  "Indomalayan" "Australasia"
test_required_values('Nearctic', community_data_with_realm[community_data_with_realm$core_realm == 'Nearctic',])
Warning: cannot compute exact p-value with tiesWarning: cannot compute exact p-value with tiesWarning: cannot compute exact p-value with tiesWarning: cannot compute exact p-value with ties
Nearctic Std: MNTD median 0.67 *
Nearctic Std: Beak Width FDiv median 0.29 
Nearctic Std: HWI FDiv median -0.8 ***
Nearctic Std: Mass FDiv median -0.26 
Nearctic Norm: MNTD median 0.75 
Nearctic Norm: Beak Width FDiv median 0.62 
Nearctic Norm: HWI FDiv median 0.23 **
Nearctic Norm: Mass FDiv median 0.48 
N 46
test_required_values('Neotropic', community_data_with_realm[community_data_with_realm$core_realm == 'Neotropic',])
Neotropic Std: MNTD median 0.03 
Neotropic Std: Beak Width FDiv median -0.44 ***
Neotropic Std: HWI FDiv median -0.31 
Neotropic Std: Mass FDiv median 0.33 *
Neotropic Norm: MNTD median 0.45 
Neotropic Norm: Beak Width FDiv median 0.46 
Neotropic Norm: HWI FDiv median 0.5 
Neotropic Norm: Mass FDiv median 0.65 ***
N 64
test_required_values('Palearctic', community_data_with_realm[community_data_with_realm$core_realm == 'Palearctic',])
Palearctic Std: MNTD median 0.13 
Palearctic Std: Beak Width FDiv median 1.25 ***
Palearctic Std: HWI FDiv median -0.39 
Palearctic Std: Mass FDiv median 0.01 
Palearctic Norm: MNTD median 0.57 *
Palearctic Norm: Beak Width FDiv median 0.93 ***
Palearctic Norm: HWI FDiv median 0.38 
Palearctic Norm: Mass FDiv median 0.55 
N 72
test_required_values('Afrotropic', community_data_with_realm[community_data_with_realm$core_realm == 'Afrotropic',])
Afrotropic Std: MNTD median -1.27 *
Afrotropic Std: Beak Width FDiv median -0.5 
Afrotropic Std: HWI FDiv median 0.17 
Afrotropic Std: Mass FDiv median -0.95 
Afrotropic Norm: MNTD median 0.07 *
Afrotropic Norm: Beak Width FDiv median 0.42 
Afrotropic Norm: HWI FDiv median 0.54 
Afrotropic Norm: Mass FDiv median 0.34 
N 9
test_required_values('Indomalayan', community_data_with_realm[community_data_with_realm$core_realm == 'Indomalayan',])
Indomalayan Std: MNTD median -0.63 ***
Indomalayan Std: Beak Width FDiv median -0.7 ***
Indomalayan Std: HWI FDiv median 1.11 ***
Indomalayan Std: Mass FDiv median 0.84 ***
Indomalayan Norm: MNTD median 0.21 ***
Indomalayan Norm: Beak Width FDiv median 0.46 
Indomalayan Norm: HWI FDiv median 0.88 ***
Indomalayan Norm: Mass FDiv median 0.8 ***
N 111
test_required_values('Australasia', community_data_with_realm[community_data_with_realm$core_realm == 'Australasia',])
Australasia Std: MNTD median -1.39 
Australasia Std: Beak Width FDiv median -0.74 
Australasia Std: HWI FDiv median 0.78 
Australasia Std: Mass FDiv median -0.94 
Australasia Norm: MNTD median 0.09 
Australasia Norm: Beak Width FDiv median 0.46 
Australasia Norm: HWI FDiv median 0.79 
Australasia Norm: Mass FDiv median 0.55 
N 6

How significant are those differences:

print('Standard')
[1] "Standard"
kruskal.test(mntd_standard~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  mntd_standard by core_realm
Kruskal-Wallis chi-squared = 102.11, df = 5, p-value < 0.00000000000000022
pairwise.wilcox.test(community_data_with_realm$mntd_standard, community_data_with_realm$core_realm)

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$mntd_standard and community_data_with_realm$core_realm 

            Afrotropic      Australasia Indomalayan     Nearctic Neotropic
Australasia 1.00000         -           -               -        -        
Indomalayan 0.00489         0.01024     -               -        -        
Nearctic    0.0000053220919 0.00018     0.0000000141740 -        -        
Neotropic   0.00018         0.00170     0.0000000083499 0.21142  -        
Palearctic  0.00018         0.00170     0.0000000000087 0.04492  1.00000  

P value adjustment method: holm 
print('Normal')
[1] "Normal"
kruskal.test(mntd_normal~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  mntd_normal by core_realm
Kruskal-Wallis chi-squared = 122.2, df = 5, p-value < 0.00000000000000022
pairwise.wilcox.test(community_data_with_realm$mntd_normal, community_data_with_realm$core_realm)
Warning: cannot compute exact p-value with tiesWarning: cannot compute exact p-value with ties

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$mntd_normal and community_data_with_realm$core_realm 

            Afrotropic      Australasia Indomalayan          Nearctic Neotropic
Australasia 0.27213         -           -                    -        -        
Indomalayan 0.00013         0.00267     -                    -        -        
Nearctic    0.00276         0.01815     0.0000009331952      -        -        
Neotropic   0.0000199762545 0.00053     0.0000000000089      0.01638  -        
Palearctic  0.0000540321246 0.00147     < 0.0000000000000002 0.10733  0.00947  

P value adjustment method: holm 
print('Standard')
[1] "Standard"
kruskal.test(beak_width_fdiv_standard~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  beak_width_fdiv_standard by core_realm
Kruskal-Wallis chi-squared = 107.95, df = 5, p-value < 0.00000000000000022
pairwise.wilcox.test(community_data_with_realm$beak_width_fdiv_standard, community_data_with_realm$core_realm)

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$beak_width_fdiv_standard and community_data_with_realm$core_realm 

            Afrotropic Australasia Indomalayan          Nearctic          Neotropic        
Australasia 1.00000    -           -                    -                 -                
Indomalayan 1.00000    1.00000     -                    -                 -                
Nearctic    0.11361    1.00000     0.00123              -                 -                
Neotropic   1.00000    1.00000     1.00000              0.00388           -                
Palearctic  0.00026    0.13449     < 0.0000000000000002 0.000001461233727 0.000000000000018

P value adjustment method: holm 
print('Normal')
[1] "Normal"
kruskal.test(beak_width_fdiv_standard~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  beak_width_fdiv_standard by core_realm
Kruskal-Wallis chi-squared = 107.95, df = 5, p-value < 0.00000000000000022
pairwise.wilcox.test(community_data_with_realm$beak_width_fdiv_standard, community_data_with_realm$core_realm)

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$beak_width_fdiv_standard and community_data_with_realm$core_realm 

            Afrotropic Australasia Indomalayan          Nearctic          Neotropic        
Australasia 1.00000    -           -                    -                 -                
Indomalayan 1.00000    1.00000     -                    -                 -                
Nearctic    0.11361    1.00000     0.00123              -                 -                
Neotropic   1.00000    1.00000     1.00000              0.00388           -                
Palearctic  0.00026    0.13449     < 0.0000000000000002 0.000001461233727 0.000000000000018

P value adjustment method: holm 
print('Standard')
[1] "Standard"
kruskal.test(hwi_fdiv_standard~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  hwi_fdiv_standard by core_realm
Kruskal-Wallis chi-squared = 115.62, df = 5, p-value < 0.00000000000000022
pairwise.wilcox.test(community_data_with_realm$hwi_fdiv_standard, community_data_with_realm$core_realm)

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$hwi_fdiv_standard and community_data_with_realm$core_realm 

            Afrotropic Australasia Indomalayan         Nearctic Neotropic
Australasia 1.0000     -           -                   -        -        
Indomalayan 0.1471     1.0000      -                   -        -        
Nearctic    1.0000     0.0038      0.00000000000000043 -        -        
Neotropic   1.0000     0.0680      0.00000000000000197 0.0925   -        
Palearctic  1.0000     0.3068      0.00000000003605628 0.2673   1.0000   

P value adjustment method: holm 
print('Normal')
[1] "Normal"
kruskal.test(hwi_fdiv_normal~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  hwi_fdiv_normal by core_realm
Kruskal-Wallis chi-squared = 104.9, df = 5, p-value < 0.00000000000000022
pairwise.wilcox.test(community_data_with_realm$hwi_fdiv_normal, community_data_with_realm$core_realm)
Warning: cannot compute exact p-value with tiesWarning: cannot compute exact p-value with ties

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$hwi_fdiv_normal and community_data_with_realm$core_realm 

            Afrotropic Australasia Indomalayan        Nearctic           Neotropic
Australasia 0.7233     -           -                  -                  -        
Indomalayan 0.1144     1.0000      -                  -                  -        
Nearctic    0.0881     0.0193      0.0000000000006844 -                  -        
Neotropic   1.0000     0.0204      0.0000000000000014 0.0000964104748761 -        
Palearctic  0.9971     0.2748      0.0000000522948450 0.0073             0.9953   

P value adjustment method: holm 
print('Standard')
[1] "Standard"
kruskal.test(mass_fdiv_standard~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  mass_fdiv_standard by core_realm
Kruskal-Wallis chi-squared = 48.784, df = 5, p-value = 0.000000002457
pairwise.wilcox.test(community_data_with_realm$mass_fdiv_standard, community_data_with_realm$core_realm)

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$mass_fdiv_standard and community_data_with_realm$core_realm 

            Afrotropic Australasia Indomalayan Nearctic Neotropic
Australasia 1.0000     -           -           -        -        
Indomalayan 0.0033     0.1401      -           -        -        
Nearctic    0.1401     1.0000      0.0023      -        -        
Neotropic   0.0158     0.2989      1.0000      0.1401   -        
Palearctic  0.0873     1.0000      0.00000002  1.0000   0.0658   

P value adjustment method: holm 
print('Normal')
[1] "Normal"
kruskal.test(mass_fdiv_normal~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  mass_fdiv_normal by core_realm
Kruskal-Wallis chi-squared = 58.138, df = 5, p-value = 0.00000000002946
pairwise.wilcox.test(community_data_with_realm$mass_fdiv_normal, community_data_with_realm$core_realm)
Warning: cannot compute exact p-value with tiesWarning: cannot compute exact p-value with ties

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$mass_fdiv_normal and community_data_with_realm$core_realm 

            Afrotropic Australasia Indomalayan     Nearctic Neotropic
Australasia 1.000      -           -               -        -        
Indomalayan 0.014      0.075       -               -        -        
Nearctic    1.000      1.000       0.016           -        -        
Neotropic   0.126      1.000       0.014           0.958    -        
Palearctic  0.824      1.000       0.0000000000008 1.000    0.014    

P value adjustment method: holm 

What families exist in which realms?

communities %>% 
  left_join(city_to_realm) %>% 
  mutate(family = gsub( " .*$", "", ebird_species_name)) %>%
  dplyr::select(family, core_realm) %>%
  distinct() %>%
  arrange(core_realm)
Joining with `by = join_by(city_id)`

Total urban families

communities %>% 
  mutate(family = gsub( " .*$", "", ebird_species_name)) %>%
  dplyr::select(family) %>%
  distinct() %>%
  arrange()

of which urban

communities %>% 
  filter(relative_abundance_proxy > 0) %>%
  mutate(family = gsub( " .*$", "", ebird_species_name)) %>%
  dplyr::select(family) %>%
  distinct() %>%
  arrange()

Summary metrics by introduced species

communities = read_csv(filename(COMMUNITY_OUTPUT_DIR, 'communities_for_analysis.csv'))
Rows: 2428 Columns: 7── Column specification ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (5): city_name, ebird_species_name, seasonal, presence, origin
dbl (2): city_id, relative_abundance_proxy
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
city_introduced_species = communities %>% group_by(city_id) %>% summarise(number_of_species = n()) %>% left_join(
  communities %>% group_by(city_id) %>% filter(origin == 'Introduced') %>% summarise(number_of_introduced_species = n())
) %>% replace_na(list(number_of_introduced_species = 0))
Joining with `by = join_by(city_id)`
community_data_with_introductions = left_join(community_data, city_introduced_species)
Joining with `by = join_by(city_id)`
community_data_with_introductions$has_introduced_species = community_data_with_introductions$number_of_introduced_species > 0
community_data_with_introductions
communities %>% 
  filter(origin == 'Introduced') %>%
  dplyr::select(ebird_species_name) %>%
  group_by(ebird_species_name) %>%
  summarise(total_cities = n()) %>%
  arrange(desc(total_cities))
community_data_with_introductions[,c('mntd_standard', 'has_introduced_species')]
community_data_with_introductions %>% group_by(has_introduced_species) %>% summarise(
  total_cities = n(), 
  
  mean_mntd_std = mean(mntd_standard, na.rm = T),
  median_mntd_std = median(mntd_standard, na.rm = T),
  sd_mntd_std = sd(mntd_standard, na.rm = T),
  
  mean_mass_fdiv_std = mean(mass_fdiv_standard, na.rm = T),
  median_mass_fdiv_std = median(mass_fdiv_standard, na.rm = T),
  sd_mass_fdiv_std = sd(mass_fdiv_standard, na.rm = T),
  
  mean_gape_width_fdiv_std = mean(beak_width_fdiv_standard, na.rm = T),
  median_gape_width_fdiv_std = median(beak_width_fdiv_standard, na.rm = T),
  sd_gape_width_fdiv_std = sd(beak_width_fdiv_standard, na.rm = T),
  
  mean_handwing_index_fdiv_std = mean(hwi_fdiv_standard, na.rm = T),
  median_handwing_index_fdiv_std = median(hwi_fdiv_standard, na.rm = T),
  sd_handwing_index_fdiv_std = sd(hwi_fdiv_standard, na.rm = T)
)

MNTD

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = mntd_standard)) + geom_boxplot()

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = mntd_normal)) + geom_boxplot()

wilcox.test(mntd_standard ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  mntd_standard by has_introduced_species
W = 7922, p-value = 0.00001262
alternative hypothesis: true location shift is not equal to 0

There is a significant difference between the response of cities with introduced species (0.53±0.27) and those without (0.47±0.19) (p-value = 0.02).

wilcox.test(mntd_normal ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  mntd_normal by has_introduced_species
W = 7376.5, p-value = 0.0000003705
alternative hypothesis: true location shift is not equal to 0

Mass FDiv

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = mass_fdiv_standard)) + geom_boxplot()

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = mass_fdiv_normal)) + geom_boxplot()

wilcox.test(mass_fdiv_standard ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  mass_fdiv_standard by has_introduced_species
W = 15009, p-value = 0.0000007626
alternative hypothesis: true location shift is not equal to 0

There is a significant difference between the response of cities with introduced species (0.57±0.27) and those without (0.73±0.24) (p < 0.0001)

wilcox.test(mass_fdiv_normal ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  mass_fdiv_normal by has_introduced_species
W = 15204, p-value = 0.0000001989
alternative hypothesis: true location shift is not equal to 0

Beak Gape FDiv

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = beak_width_fdiv_standard)) + geom_boxplot()

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = beak_width_fdiv_normal)) + geom_boxplot()

wilcox.test(beak_width_fdiv_standard ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  beak_width_fdiv_standard by has_introduced_species
W = 8659, p-value = 0.0006786
alternative hypothesis: true location shift is not equal to 0

There is NOT a significant difference between the response of cities with introduced species (0.61±0.30) and those without (0.56±0.27)

wilcox.test(beak_width_fdiv_normal ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  beak_width_fdiv_normal by has_introduced_species
W = 9829.5, p-value = 0.06288
alternative hypothesis: true location shift is not equal to 0

HWI FDiv

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = hwi_fdiv_standard)) + geom_boxplot()

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = hwi_fdiv_normal)) + geom_boxplot()

wilcox.test(hwi_fdiv_standard ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  hwi_fdiv_standard by has_introduced_species
W = 17622, p-value < 0.00000000000000022
alternative hypothesis: true location shift is not equal to 0

There is a significant difference between the response of cities with introduced species (0.49±0.30) and those without (0.79±0.21) (p < 0.0001)

wilcox.test(hwi_fdiv_normal ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  hwi_fdiv_normal by has_introduced_species
W = 17673, p-value < 0.00000000000000022
alternative hypothesis: true location shift is not equal to 0

What proportion of cities in each realm have introduced species

community_data_with_introductions %>% left_join(city_to_realm) %>%
  group_by(core_realm) %>%
  summarise(
    total_cities = n(), 
    total_cities_with_introduced = sum(has_introduced_species), 
    total_cities_without_introduced = n() - sum(has_introduced_species)) %>%
  arrange(core_realm)
Joining with `by = join_by(city_id)`

Are any introduced species not also present in a city?

communities %>% 
  filter(origin == 'Introduced') %>% 
  filter(relative_abundance_proxy < 0.1)

What’s the average relative abundance of introduced species compared to native

communities %>% 
  group_by(origin) %>% 
  summarise(average_relative_abundance = mean(relative_abundance_proxy))
communities %>% 
  group_by(origin) %>% 
  filter(relative_abundance_proxy > 0) %>%
  summarise(average_relative_abundance = mean(relative_abundance_proxy))
communities %>% 
  group_by(origin) %>% 
  summarise(average_relative_abundance = mean(relative_abundance_proxy))

Create analysis data frame for modelling

geography = read_csv(filename(CITY_DATA_OUTPUT_DIR, 'geography.csv'))
Rows: 342 Columns: 26── Column specification ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
dbl (26): city_id, city_avg_ndvi, city_avg_elevation, city_avg_temp, city_avg_min_monthly_temp, city_avg_max_monthly_temp, city_avg_monthly_temp, city_avg_rainfall, city_av...
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
names(geography)
 [1] "city_id"                       "city_avg_ndvi"                 "city_avg_elevation"            "city_avg_temp"                 "city_avg_min_monthly_temp"    
 [6] "city_avg_max_monthly_temp"     "city_avg_monthly_temp"         "city_avg_rainfall"             "city_avg_max_monthly_rainfall" "city_avg_min_monthly_rainfall"
[11] "city_avg_soil_moisture"        "city_max_elev"                 "city_min_elev"                 "city_elev_range"               "region_20km_avg_ndvi"         
[16] "region_20km_avg_elevation"     "region_20km_avg_soil_moisture" "region_20km_max_elev"          "region_20km_min_elev"          "region_20km_elev_range"       
[21] "region_50km_avg_ndvi"          "region_50km_avg_elevation"     "region_50km_avg_soil_moisture" "region_50km_max_elev"          "region_50km_min_elev"         
[26] "region_50km_elev_range"       
analysis_data = community_data_with_realm[,c('city_id', 
       'mntd_standard', 'mass_fdiv_standard', 'beak_width_fdiv_standard', 'hwi_fdiv_standard',
       'mntd_normal', 'mass_fdiv_normal', 'beak_width_fdiv_normal', 'hwi_fdiv_normal',
       'core_realm')] %>% 
  left_join(city_points[,c('city_id', 'latitude', 'longitude')]) %>%
  left_join(community_data_with_introductions[,c('city_id', 'has_introduced_species')]) %>%
  left_join(geography) %>%
  left_join(spatial_var)
Joining with `by = join_by(city_id)`Joining with `by = join_by(city_id)`Joining with `by = join_by(city_id)`Joining with `by = join_by(city_id)`
analysis_data$abs_latitude = abs(analysis_data$latitude)
analysis_data$core_realm = factor(analysis_data$core_realm, levels = c('Palearctic', 'Nearctic', 'Neotropic', 'Afrotropic', 'Indomalayan', 'Australasia', 'Oceania'))
analysis_data$has_introduced_species = factor(analysis_data$has_introduced_species, level = c('FALSE', 'TRUE'), labels = c('No introduced species', 'Introduced species'))
model_data = function(df, dependant_var) {
  df[,c(dependant_var, 'core_realm', 'abs_latitude', 'longitude', 'has_introduced_species', 'city_avg_ndvi', 'city_avg_elevation', 'city_avg_temp', 'city_avg_min_monthly_temp', 'city_avg_max_monthly_temp', 'city_avg_monthly_temp', 'city_avg_rainfall', 'city_avg_max_monthly_rainfall', 'city_avg_min_monthly_rainfall', 'city_avg_soil_moisture', 'city_max_elev', 'city_min_elev', 'city_elev_range', 'region_20km_avg_ndvi', 'region_20km_avg_elevation', 'region_20km_avg_soil_moisture', 'region_20km_max_elev', 'region_20km_min_elev', 'region_20km_elev_range', 'region_50km_avg_ndvi', 'region_50km_avg_elevation', 'region_50km_avg_soil_moisture', 'region_50km_max_elev', 'region_50km_min_elev', 'region_50km_elev_range')]
}
model_data(analysis_data, 'mntd_standard')
model_data(analysis_data, 'mntd_normal')
names(analysis_data)
 [1] "city_id"                       "mntd_standard"                 "mass_fdiv_standard"            "beak_width_fdiv_standard"      "hwi_fdiv_standard"            
 [6] "mntd_normal"                   "mass_fdiv_normal"              "beak_width_fdiv_normal"        "hwi_fdiv_normal"               "core_realm"                   
[11] "latitude"                      "longitude"                     "geometry"                      "has_introduced_species"        "city_avg_ndvi"                
[16] "city_avg_elevation"            "city_avg_temp"                 "city_avg_min_monthly_temp"     "city_avg_max_monthly_temp"     "city_avg_monthly_temp"        
[21] "city_avg_rainfall"             "city_avg_max_monthly_rainfall" "city_avg_min_monthly_rainfall" "city_avg_soil_moisture"        "city_max_elev"                
[26] "city_min_elev"                 "city_elev_range"               "region_20km_avg_ndvi"          "region_20km_avg_elevation"     "region_20km_avg_soil_moisture"
[31] "region_20km_max_elev"          "region_20km_min_elev"          "region_20km_elev_range"        "region_50km_avg_ndvi"          "region_50km_avg_elevation"    
[36] "region_50km_avg_soil_moisture" "region_50km_max_elev"          "region_50km_min_elev"          "region_50km_elev_range"        "NMDS1"                        
[41] "NMDS2"                         "abs_latitude"                 

NMDS Spatial Helpers

analysis_data_nmds_coords = analysis_data[,c('NMDS1', 'NMDS2')]
coordinates(analysis_data_nmds_coords)  = ~ NMDS1 + NMDS2

analysis_data_nmds_nearneigh <- knearneigh(analysis_data_nmds_coords)
Warning: knearneigh: identical points foundWarning: knearneigh: kd_tree not available for identical points
analysis_data_nmds_neighbours <- knn2nb(analysis_data_nmds_nearneigh)
Warning: neighbour object has 76 sub-graphs

Polygons around realms in NMDS plot

cities_to_realms_nmds = read_csv(filename(CITY_DATA_OUTPUT_DIR, 'realms.csv')) %>% left_join(analysis_data) %>% filter(!is.na(NMDS1))
Rows: 337 Columns: 2── Column specification ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (1): core_realm
dbl (1): city_id
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.Joining with `by = join_by(city_id, core_realm)`
unique(cities_to_realms_nmds$core_realm)
[1] "Nearctic"    "Neotropic"   "Palearctic"  "Afrotropic"  "Indomalayan" "Australasia"
realm_nmds_neartic_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Nearctic') %>% slice(chull(NMDS1, NMDS2))
realm_nmds_neotropic_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Neotropic') %>% slice(chull(NMDS1, NMDS2))
realm_nmds_palearctic_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Palearctic') %>% slice(chull(NMDS1, NMDS2))
realm_nmds_afrotropic_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Afrotropic') %>% slice(chull(NMDS1, NMDS2))
realm_nmds_indomalayan_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Indomalayan') %>% slice(chull(NMDS1, NMDS2))
realm_nmds_australasia_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Australasia') %>% slice(chull(NMDS1, NMDS2))

polygon_line_type = 'dashed'
polygon_linewidth = 0.4

with_realms_nmds = function(g) {
  g + 
    geom_polygon(data = realm_nmds_neartic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_nmds_neotropic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_nmds_palearctic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_nmds_afrotropic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_nmds_indomalayan_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_nmds_australasia_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0)
}

Lat Long Spatial Helpers

analysis_data_latlong_coords = analysis_data[,c('longitude', 'latitude')]
coordinates(analysis_data_latlong_coords)  = ~ longitude + latitude

analysis_data_coords_nearneigh <- knearneigh(analysis_data_latlong_coords, longlat = TRUE)
analysis_data_neighbours <- knn2nb(analysis_data_coords_nearneigh)
Warning: neighbour object has 97 sub-graphs

Polygons around realms in lat long plot

cities_to_realms_latlong = read_csv(filename(CITY_DATA_OUTPUT_DIR, 'realms.csv')) %>% left_join(analysis_data) %>% filter(!is.na(latitude))
Rows: 337 Columns: 2── Column specification ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (1): core_realm
dbl (1): city_id
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.Joining with `by = join_by(city_id, core_realm)`
unique(cities_to_realms_latlong$core_realm)
[1] "Nearctic"    "Neotropic"   "Palearctic"  "Afrotropic"  "Indomalayan" "Australasia"
realm_latlong_neartic_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Nearctic') %>% slice(chull(latitude, longitude))
realm_latlong_neotropic_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Neotropic') %>% slice(chull(latitude, longitude))
realm_latlong_palearctic_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Palearctic') %>% slice(chull(latitude, longitude))
realm_latlong_afrotropic_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Afrotropic') %>% slice(chull(latitude, longitude))
realm_latlong_indomalayan_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Indomalayan') %>% slice(chull(latitude, longitude))
realm_latlong_australasia_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Australasia') %>% slice(chull(latitude, longitude))

with_realms_latlong = function(g) {
  g + 
    geom_polygon(data = realm_latlong_neartic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_latlong_neotropic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_latlong_palearctic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_latlong_afrotropic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_latlong_indomalayan_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_latlong_australasia_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0)
}

Check for spatial autocorrelation

MNTD

Lat/Long

with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = mntd_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$mntd_standard, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$mntd_standard  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.343, p-value = 0.0000000000001044
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.529792986      -0.003257329       0.005269694 
with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = mntd_normal)) + geom_point() + normalised_colours_scale + labs(colour = "Normalised response"))

moran.test(analysis_data$mntd_normal, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$mntd_normal  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.6496, p-value = 0.00000000000001008
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.552360477      -0.003257329       0.005275586 

NMDS

with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = mntd_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$mntd_standard, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$mntd_standard  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 6.5193, p-value = 0.00000000003531
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.445538119      -0.003257329       0.004739028 
with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = mntd_normal)) + geom_point() + standardised_colours_scale + labs(colour = "Normalised response"))

moran.test(analysis_data$mntd_normal, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$mntd_normal  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 6.2392, p-value = 0.0000000002199
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.426489674      -0.003257329       0.004744227 

FDiv Beak Width

Lat/Long

with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = beak_width_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$beak_width_fdiv_standard, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$beak_width_fdiv_standard  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.7208, p-value = 0.000000000000005781
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.557818587      -0.003257329       0.005281064 
with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = beak_width_fdiv_normal)) + geom_point() + standardised_colours_scale + labs(colour = "Normalised response"))

moran.test(analysis_data$beak_width_fdiv_normal, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$beak_width_fdiv_normal  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 8.3245, p-value < 0.00000000000000022
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.601742587      -0.003257329       0.005281967 

NMDS

with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = beak_width_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$beak_width_fdiv_standard, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$beak_width_fdiv_standard  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 8.0587, p-value = 0.0000000000000003855
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.552096148      -0.003257329       0.004749061 
with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = beak_width_fdiv_normal)) + geom_point() + standardised_colours_scale + labs(colour = "Normalised response"))

moran.test(analysis_data$beak_width_fdiv_normal, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$beak_width_fdiv_normal  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 7.5255, p-value = 0.00000000000002625
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.515397518      -0.003257329       0.004749858 

FDiv HWI

Lat/Long

with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = hwi_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$hwi_fdiv_standard, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$hwi_fdiv_standard  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 9.756, p-value < 0.00000000000000022
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.705943030      -0.003257329       0.005284408 
with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = hwi_fdiv_normal)) + geom_point() + standardised_colours_scale + labs(colour = "Normalised response"))

moran.test(analysis_data$hwi_fdiv_normal, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$hwi_fdiv_normal  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 10.186, p-value < 0.00000000000000022
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.737118550      -0.003257329       0.005283050 

NMDS

with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = hwi_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$hwi_fdiv_standard, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$hwi_fdiv_standard  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 5.7294, p-value = 0.000000005039
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.391697713      -0.003257329       0.004752012 
with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = hwi_fdiv_normal)) + geom_point() + standardised_colours_scale + labs(colour = "Normalised response"))

moran.test(analysis_data$hwi_fdiv_normal, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$hwi_fdiv_normal  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 6.2803, p-value = 0.0000000001689
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.429622019      -0.003257329       0.004750814 

FDiv Mass

Lat/Long

with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = mass_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$mass_fdiv_standard, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$mass_fdiv_standard  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 9.1521, p-value < 0.00000000000000022
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.661355126      -0.003257329       0.005273416 
with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = mass_fdiv_normal)) + geom_point() + standardised_colours_scale + labs(colour = "Normalised response"))

moran.test(analysis_data$mass_fdiv_normal, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$mass_fdiv_normal  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 9.008, p-value < 0.00000000000000022
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.650776207      -0.003257329       0.005271668 

NMDS

with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = mass_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$mass_fdiv_standard, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$mass_fdiv_standard  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 6.2114, p-value = 0.0000000002625
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.424488243      -0.003257329       0.004742312 
with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = mass_fdiv_normal)) + geom_point() + standardised_colours_scale + labs(colour = "Normalised response"))

moran.test(analysis_data$mass_fdiv_normal, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$mass_fdiv_normal  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 4.6538, p-value = 0.000001629
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.317170749      -0.003257329       0.004740769 

Examine individual metrics

all_explanatories = c(
    'city_avg_ndvi', 'city_avg_elevation', 'city_avg_temp',
    'region_50km_avg_soil_moisture',
    'core_realmAfrotropic', 'core_realmAustralasia', 'core_realmIndomalayan', 'core_realmNearctic', 'core_realmNeotropic', 'core_realmPalearctic',
    'has_introduced_speciesNo introduced species', 'has_introduced_speciesIntroduced species',
    'core_realmAfrotropic:has_introduced_speciesIntroduced species',
    'core_realmAustralasia:has_introduced_speciesIntroduced species',
    'core_realmIndomalayan:has_introduced_speciesIntroduced species',
    'core_realmNearctic:has_introduced_speciesIntroduced species',
    'core_realmNeotropic:has_introduced_speciesIntroduced species',
    'core_realmPalearctic:has_introduced_speciesIntroduced species',
    'core_realmOceania:has_introduced_speciesIntroduced species'
)

all_explanatory_names = factor(
   c(
    'Avg. NDVI', 'Avg. Elevation', 'Avg. Temp.',
    'Avg. Soil Moisture',
    'Afrotropic', 'Australasia', 'Indomalayan', 'Nearctic', 'Neotropic', 'Palearctic',
    'Introduced Absent', 'Introduced Present',
    'Afrotropical * Introduced present',
    'Austaliasian * Introduced present',
    'Indomalayan * Introduced present',
    'Nearctic * Introduced present',
    'Neotropical * Introduced present',
    'Palearctic * Introduced present',
    'Oceanical * Introduced present'
  ), ordered = T
)

explanatory_dictionary = data.frame(explanatory = all_explanatories, explanatory_name = all_explanatory_names)
  
with_explanatory_type_labels = function(p) {
  p = p[p$explanatory != '(Intercept)',]
  explanatory_levels = all_explanatories[all_explanatories %in% p$explanatory]
  p$explanatory <- factor(p$explanatory, levels = explanatory_levels)
  
  p$type <- 'Realm'
  p$type[p$explanatory %in% c('city_avg_ndvi', 'city_avg_elevation', 'city_avg_temp')] <- 'City geography'
  p$type[p$explanatory %in% c('region_50km_avg_soil_moisture')] <- 'Regional (50 km) geography'
  p$type[p$explanatory %in% c('has_introduced_speciesNo introduced species', 'has_introduced_speciesIntroduced species')] <- 'Introduced species'
  p
}

with_explanatory_names = function(p) {
  p %>% left_join(explanatory_dictionary) %>% arrange(desc(explanatory_name))
}

type_labels = function(p) {
  explanatory_levels = all_explanatories[all_explanatories %in% p$explanatory]
  p$explanatory <- factor(p$explanatory, levels = explanatory_levels)
  
  p$type <- 'Realm'
  p$type[p$explanatory %in% c('city_avg_ndvi', 'city_avg_elevation', 'city_avg_temp', 'city_avg_min_monthly_temp', 'city_avg_max_monthly_temp', 
    'city_avg_monthly_temp', 'city_avg_rainfall', 'city_avg_max_monthly_rainfall', 'city_avg_min_monthly_rainfall', 
    'city_avg_soil_moisture', 'city_max_elev', 'city_min_elev', 'city_elev_range')] <- 'City geography'
  p$type[p$explanatory %in% c('region_50km_avg_ndvi', 'region_50km_avg_elevation', 'region_50km_avg_soil_moisture', 'region_50km_max_elev', 
    'region_50km_min_elev', 'region_50km_elev_range')] <- 'Regional (50 km) geography'
   p$type[p$explanatory %in% c('region_20km_avg_ndvi', 'region_20km_avg_elevation', 'region_20km_avg_soil_moisture', 'region_20km_max_elev', 
    'region_20km_min_elev', 'region_20km_elev_range')] <- 'Regional (20 km) geography'
  p$type[p$explanatory %in% c('has_introduced_speciesNo introduced species', 'has_introduced_speciesIntroduced species')] <- 'Introduced species'
  p
}
explanatory_labels = c(
  'has_introduced_species'='Introduced species', 
  'has_introduced_speciesNo introduced species'='Introduced absent', 
  'has_introduced_speciesIntroduced species'='Introduced present',
  'city_avg_ndvi'='Average NDVI', 
  'city_avg_elevation'='Average elevation', 
  'city_avg_temp'='Average temperature', 
  'city_avg_min_monthly_temp'='Average minimum monthly temperature', 
  'city_avg_max_monthly_temp'='Average maximum monthly temperature', 
  'city_avg_monthly_temp'='Average monthly temperature', 
  'city_avg_rainfall'='Average rainfall', 
  'city_avg_max_monthly_rainfall'='Average maximum monthly rainfall', 
  'city_avg_min_monthly_rainfall'='Average minimum monthly rainfall', 
  'city_avg_soil_moisture'='Average soil moisture', 
  'city_max_elev'='Maximum elevation', 
  'city_min_elev'='Minimum elevation', 
  'city_elev_range'='Elevation range', 
  'region_20km_avg_ndvi'='Average NDVI', 
  'region_20km_avg_elevation'='Average elevation', 
  'region_20km_avg_soil_moisture'='Average soil moisture', 
  'region_20km_max_elev'='Maximum elevation', 
  'region_20km_min_elev'='Minimum elevation',
  'region_20km_elev_range'='Elevation range',
  'region_50km_avg_ndvi'='Average NDVI',
  'region_50km_avg_elevation'='Average elevation',
  'region_50km_avg_soil_moisture'='Average soil moisture', 
  'region_50km_max_elev'='Maximum elevation',
  'region_50km_min_elev'='Minimum elevation', 
  'region_50km_elev_range'='Elevation range',
  'abs_latitude' = 'Absolute latitude',
  'latitude' = 'Latitude',
  'longitude' = 'Longitude',
  'core_realmAfrotropic' = 'Afrotropical', 
  'core_realmAustralasia' = 'Austaliasian', 
  'core_realmIndomalayan' = 'Indomalayan', 
  'core_realmNearctic' = 'Nearctic', 
  'core_realmNeotropic' = 'Neotropical',
  'core_realmPalearctic' = 'Palearctic',
  'core_realmOceania' = 'Oceanical',
  'core_realmAfrotropic:has_introduced_speciesIntroduced species' = 'Afrotropical * Introduced present',
  'core_realmAustralasia:has_introduced_speciesIntroduced species' = 'Austaliasian * Introduced present',
  'core_realmIndomalayan:has_introduced_speciesIntroduced species' = 'Indomalayan * Introduced present',
  'core_realmNearctic:has_introduced_speciesIntroduced species' = 'Nearctic * Introduced present',
  'core_realmNeotropic:has_introduced_speciesIntroduced species' = 'Neotropical * Introduced present',
  'core_realmPalearctic:has_introduced_speciesIntroduced species' = 'Palearctic * Introduced present',
  'core_realmOceania:has_introduced_speciesIntroduced species' = 'Oceanical * Introduced present'
)
create_formula = function(response_var) {
  as.formula(paste(response_var, '~ core_realm + city_avg_ndvi + city_avg_elevation + city_avg_temp + region_50km_avg_soil_moisture + has_introduced_species'))
}

Helper plot functions

geom_map = function(map_sf, title, scale = standardised_colours_scale, colour_label = 'Standardised\nResponse') {
  norm_mntd_analysis_geo = ggplot() + 
    geom_sf(data = world_map, aes(geometry = geometry)) +
    map_sf +
    scale +
    labs(colour = colour_label) +
    theme_bw() +
    theme(legend.position="bottom")
}

geom_map_std = function(map_sf, title) {
  geom_map(map_sf, title)
}

geom_map_nrm = function(map_sf, title) {
  geom_map(map_sf, title, normalised_colours_scale, 'Normalised\nResponse')
}

Helper Dredge functions

# Taken from MuMIN package
# https://rdrr.io/cran/MuMIn/src/R/averaging.R
# https://rdrr.io/cran/MuMIn/src/R/model.avg.R

.coefarr.avg <-
  function(cfarr, weight, revised.var, full, alpha) {   
    weight <- weight / sum(weight)
    nCoef <- dim(cfarr)[3L]
    if(full) {
      nas <- is.na(cfarr[, 1L, ]) & is.na(cfarr[, 2L, ])
      cfarr[, 1L, ][nas] <- cfarr[, 2L, ][nas] <- 0
      #cfarr[, 1L:2L, ][is.na(cfarr[, 1L:2L, ])] <- 0
      if(!all(is.na(cfarr[, 3L, ])))
        cfarr[ ,3L, ][is.na(cfarr[ , 3L, ])] <- Inf
    }
    
    avgcoef <- array(dim = c(nCoef, 5L),
                     dimnames = list(dimnames(cfarr)[[3L]], c("Estimate",
                                                              "Std. Error", "Adjusted SE", "Lower CI", "Upper CI")))
    for(i in seq_len(nCoef))
      avgcoef[i, ] <- par.avg(cfarr[, 1L, i], cfarr[, 2L, i], weight,
                              df = cfarr[, 3L, i], alpha = alpha, revised.var = revised.var)
    
    avgcoef[is.nan(avgcoef)] <- NA
    return(avgcoef)
  }

.makecoefmat <- function(cf) {
  no.ase <- all(is.na(cf[, 3L]))
  z <- abs(cf[, 1L] / cf[, if(no.ase) 2L else 3L])
  pval <- 2 * pnorm(z, lower.tail = FALSE)
  cbind(cf[, if(no.ase) 1L:2L else 1L:3L, drop = FALSE],
        `z value` = z, `Pr(>|z|)` = zapsmall(pval))
}

# Generate model selections using lmer, dredge, and model.avg
# `forumla` : a two-sided linear formula object describing both the fixed-effects and random-effects part of the model
# `data` : the data frame containing the variables from the formula
# `aic_delta` : the AIC delta to use for selecting models in model average
model_average <- function(formula, data, aic_delta = 20) {
  model <- lm(
    formula,
    data=data
  )
  dredge_result <- dredge(model)
  summary(model.avg(dredge_result, subset = delta < aic_delta))
}

# Create a summary data frame containing the selected variables from a model
# `model_sum` : The model summary output from `model_average`
model_summary <- function(model_sum) {
  .column_name <- function(postfix) {
    postfix
  }
  
  # just return the estimate and p value
  weight <- model_sum$msTable[, 5L]
  
  coefmat.full <- as.data.frame(.makecoefmat(.coefarr.avg(model_sum$coefArray, weight,
                                                          attr(model_sum, "revised.var"), TRUE, 0.05)))
  
  coefmat.subset <-
    as.data.frame(.makecoefmat(.coefarr.avg(model_sum$coefArray, weight,
                                            attr(model_sum, "revised.var"), FALSE, 0.05)))
  
  
  coefmat.subset <- coefmat.subset[-c(1), c(1, 2, 5)]
  names(coefmat.subset) <- c(.column_name("estimate"), .column_name("error"), .column_name("p"))
  coefmat.subset <- tibble::rownames_to_column(coefmat.subset, "explanatory")
  coefmat.subset$model = 'subset'
  
  coefmat.full <- coefmat.full[-c(1), c(1, 2, 5)]
  names(coefmat.full) <- c(.column_name("estimate"), .column_name("error"), .column_name("p"))
  coefmat.full <- tibble::rownames_to_column(coefmat.full, "explanatory")
  coefmat.full$model = 'full'
  
  rbind(coefmat.full, coefmat.subset)
}
plot_dredge_result = function(result_table, mu = 0) {
  p = result_table[result_table$model == 'full',]
  p = type_labels(p)

  ggplot(p, aes(y = explanatory, x = estimate, colour = type)) + 
    geom_line() +
    geom_point() +
    geom_errorbar(aes(xmin=estimate-error, xmax=estimate+error), width=.2,
                   position=position_dodge(0.05)) +
    scale_y_discrete(
      limits = rev(levels(p$explanatory)), 
      labels = explanatory_labels) +
    scale_colour_manual(
      values = c(realm_colour, city_geography_colour, regional_50km_geography_colour, regional_20km_geography_colour, introduced_species_colour), 
      breaks = c('Realm', 'City geography', 'Regional (50 km) geography', 'Regional (20 km) geography', 'Introduced species')) +
    theme_bw() +
    geom_vline(xintercept=mu, linetype="dotted") +
    guides(colour=guide_legend(title="Predictor type")) + xlab('Difference in response from 0\nhabitat filtering (< 0) and competitive interactions (> 0)\n± Standard Error') + ylab('Predictor') +
    theme(legend.justification = "top")
}

GLS Spatial Helpers

gls_method = "ML"

spatial_model = function(formula, correlation) {
  gls(
    formula, 
    data = analysis_data, 
    correlation = correlation, 
    method = gls_method
  )
}

plot_spatial_result = function(model_result) {
  model_summary = summary(model_result)
  result_table = as.data.frame(model_summary$tTable)
  result_table$explanatory = rownames(result_table)
  
  result_table = result_table %>% with_explanatory_type_labels() %>% with_explanatory_names()
  
  ggplot2::ggplot(result_table, ggplot2::aes(y=factor(explanatory_name, level = all_explanatory_names, ordered = T), x=Value, colour = type)) + 
    ggplot2::geom_line() +
    ggplot2::geom_point() +
    ggplot2::geom_errorbar(ggplot2::aes(xmin=Value-Std.Error, xmax=Value+Std.Error), width=.2,
                   position=ggplot2::position_dodge(0.05)) +
    ggplot2::theme_bw() +
    ggplot2::geom_vline(xintercept=0, linetype="dotted") +
    ggplot2::theme(legend.justification = "top") +
    ylab('Predictor') +
    guides(colour=guide_legend(title="Predictor type")) + xlab('Difference in response from 0\nhabitat filtering (< 0) and competitive interactions (> 0)\n± Standard Error') +
    scale_colour_manual(
      values = c(realm_colour, city_geography_colour, regional_50km_geography_colour, introduced_species_colour), 
      breaks = c('Realm', 'City geography', 'Regional (50 km) geography', 'Introduced species')) +
    scale_y_discrete(limits = rev(all_explanatory_names[all_explanatory_names %in% result_table$explanatory_name]))
}

Choose best spatial correlation function

MNTD

AIC(spatial_model(create_formula('mntd_standard'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 661.8901
AIC(spatial_model(create_formula('mntd_standard'), corLin(form = ~ latitude + longitude)))
[1] 666.4295
AIC(spatial_model(create_formula('mntd_standard'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 653.0099
AIC(spatial_model(create_formula('mntd_standard'), corExp(form = ~ latitude + longitude)))
[1] 656.6118
AIC(spatial_model(create_formula('mntd_standard'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 657.7216
AIC(spatial_model(create_formula('mntd_standard'), corGaus(form = ~ latitude + longitude)))
[1] 662.5602
AIC(spatial_model(create_formula('mntd_standard'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 650.3759
AIC(spatial_model(create_formula('mntd_standard'), corRatio(form = ~ latitude + longitude)))
[1] 654.8339
AIC(spatial_model(create_formula('mntd_standard'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 659.8723
AIC(spatial_model(create_formula('mntd_standard'), corSpher(form = ~ latitude + longitude)))
[1] 664.1159

MNTD: corRatio with NMDS + lat/long

AIC(spatial_model(create_formula('mntd_normal'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -81.16061
#AIC(spatial_model(create_formula('mntd_normal'), corLin(form = ~ latitude + longitude)))
AIC(spatial_model(create_formula('mntd_normal'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -89.28852
AIC(spatial_model(create_formula('mntd_normal'), corExp(form = ~ latitude + longitude)))
[1] -86.17138
AIC(spatial_model(create_formula('mntd_normal'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -86.02288
AIC(spatial_model(create_formula('mntd_normal'), corGaus(form = ~ latitude + longitude)))
[1] -79.92235
AIC(spatial_model(create_formula('mntd_normal'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -92.46759
AIC(spatial_model(create_formula('mntd_normal'), corRatio(form = ~ latitude + longitude)))
[1] -86.60443
AIC(spatial_model(create_formula('mntd_normal'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -86.78558
AIC(spatial_model(create_formula('mntd_normal'), corSpher(form = ~ latitude + longitude)))
[1] -81.47393

Beak Width

AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 793.5251
#AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corLin(form = ~ latitude + longitude)))
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 789.282
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corExp(form = ~ latitude + longitude)))
[1] 790.0085
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 793.7668
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corGaus(form = ~ latitude + longitude)))
[1] 793.7656
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 791.2572
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corRatio(form = ~ latitude + longitude)))
[1] 791.3899
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 793.8106
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corSpher(form = ~ latitude + longitude)))
[1] 793.8106

Beak width: corExp with NMDS + lat/long

AIC(spatial_model(create_formula('beak_width_fdiv_normal'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -45.30823
AIC(spatial_model(create_formula('beak_width_fdiv_normal'), corLin(form = ~ latitude + longitude)))
[1] -45.30823
AIC(spatial_model(create_formula('beak_width_fdiv_normal'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -51.4648
AIC(spatial_model(create_formula('beak_width_fdiv_normal'), corExp(form = ~ latitude + longitude)))
[1] -50.46273
AIC(spatial_model(create_formula('beak_width_fdiv_normal'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -45.13365
AIC(spatial_model(create_formula('beak_width_fdiv_normal'), corGaus(form = ~ latitude + longitude)))
[1] -45.13552
AIC(spatial_model(create_formula('beak_width_fdiv_normal'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -47.44015
AIC(spatial_model(create_formula('beak_width_fdiv_normal'), corRatio(form = ~ latitude + longitude)))
[1] -47.368
AIC(spatial_model(create_formula('beak_width_fdiv_normal'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -44.97422
AIC(spatial_model(create_formula('beak_width_fdiv_normal'), corSpher(form = ~ latitude + longitude)))
[1] -44.97475

HWI

AIC(spatial_model(create_formula('hwi_fdiv_standard'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 694.55
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corLin(form = ~ latitude + longitude)))
[1] 699.3174
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 666.6631
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corExp(form = ~ latitude + longitude)))
[1] 671.4924
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 704.4854
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corGaus(form = ~ latitude + longitude)))
[1] 709.2567
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 685.5013
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corRatio(form = ~ latitude + longitude)))
[1] 690.9801
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 689.5034
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corSpher(form = ~ latitude + longitude)))
[1] 707.7108

HWI: corExp with NMDS + lat/long

#AIC(spatial_model(create_formula('hwi_fdiv_normal'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
#AIC(spatial_model(create_formula('hwi_fdiv_normal'), corLin(form = ~ latitude + longitude)))
AIC(spatial_model(create_formula('hwi_fdiv_normal'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -96.05945
AIC(spatial_model(create_formula('hwi_fdiv_normal'), corExp(form = ~ latitude + longitude)))
[1] -91.16342
AIC(spatial_model(create_formula('hwi_fdiv_normal'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -54.57955
AIC(spatial_model(create_formula('hwi_fdiv_normal'), corGaus(form = ~ latitude + longitude)))
[1] -50.52492
AIC(spatial_model(create_formula('hwi_fdiv_normal'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -74.90875
AIC(spatial_model(create_formula('hwi_fdiv_normal'), corRatio(form = ~ latitude + longitude)))
[1] -69.65899
AIC(spatial_model(create_formula('hwi_fdiv_normal'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -53.60829
AIC(spatial_model(create_formula('hwi_fdiv_normal'), corSpher(form = ~ latitude + longitude)))
[1] -61.05117

Mass

AIC(spatial_model(create_formula('mass_fdiv_standard'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 703.1192
#AIC(spatial_model(create_formula('mass_fdiv_standard'), corLin(form = ~ latitude + longitude)))
AIC(spatial_model(create_formula('mass_fdiv_standard'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 753.3038
AIC(spatial_model(create_formula('mass_fdiv_standard'), corExp(form = ~ latitude + longitude)))
[1] 755.7536
AIC(spatial_model(create_formula('mass_fdiv_standard'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 786.6415
AIC(spatial_model(create_formula('mass_fdiv_standard'), corGaus(form = ~ latitude + longitude)))
[1] 785.0663
AIC(spatial_model(create_formula('mass_fdiv_standard'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 766.9612
AIC(spatial_model(create_formula('mass_fdiv_standard'), corRatio(form = ~ latitude + longitude)))
[1] 766.903
AIC(spatial_model(create_formula('mass_fdiv_standard'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 780.4268
AIC(spatial_model(create_formula('mass_fdiv_standard'), corSpher(form = ~ latitude + longitude)))
[1] 779.8638

Mass: corExp with NMDS + lat/long

#AIC(spatial_model(create_formula('mass_fdiv_normal'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
#AIC(spatial_model(create_formula('mass_fdiv_normal'), corLin(form = ~ latitude + longitude)))
AIC(spatial_model(create_formula('mass_fdiv_normal'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -49.779
AIC(spatial_model(create_formula('mass_fdiv_normal'), corExp(form = ~ latitude + longitude)))
[1] -48.0529
AIC(spatial_model(create_formula('mass_fdiv_normal'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -21.84722
AIC(spatial_model(create_formula('mass_fdiv_normal'), corGaus(form = ~ latitude + longitude)))
[1] -23.29214
AIC(spatial_model(create_formula('mass_fdiv_normal'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -35.17179
AIC(spatial_model(create_formula('mass_fdiv_normal'), corRatio(form = ~ latitude + longitude)))
[1] -35.60617
AIC(spatial_model(create_formula('mass_fdiv_normal'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] -27.00252
AIC(spatial_model(create_formula('mass_fdiv_normal'), corSpher(form = ~ latitude + longitude)))
[1] -27.91974
correlation_formula = as.formula('~ NMDS1 + NMDS2 + latitude + longitude')

correlation_function_fdiv = function() {
  corExp(form = correlation_formula)
}

correlation_function_mntd = function() {
  corRatio(form = correlation_formula)
}

MNTD

Standardised

std_mntd_analysis_geo_plot = geom_map_std(geom_sf(data = analysis_data, aes(color = mntd_standard, geometry = geometry)), 'MNTD')
std_mntd_analysis_geo_plot

std_mntd_analysis_data = model_data(analysis_data[!is.na(analysis_data$mntd_standard),], 'mntd_standard')
std_mntd_analysis_formula = create_formula('mntd_standard')
std_mntd_analysis_result = model_average(std_mntd_analysis_formula, std_mntd_analysis_data)
Fixed term is "(Intercept)"
std_mntd_analysis_result_table = model_summary(std_mntd_analysis_result)
std_mntd_analysis_result_table
std_mntd_analysis_pred_plot = plot_dredge_result(std_mntd_analysis_result_table)
std_mntd_analysis_pred_plot

Do the residuals still contain spatial autocorrelation from a fitted lm?

std_mntd_lm = lm(std_mntd_analysis_formula, std_mntd_analysis_data)
moran.test(std_mntd_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_mntd_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 3.8425, p-value = 0.0000609
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.275671194      -0.003257329       0.005269438 
moran.test(std_mntd_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_mntd_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 2.9566, p-value = 0.001555
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.200271681      -0.003257329       0.004738802 
std_mntd_spatial_model = spatial_model(std_mntd_analysis_formula, correlation_function_mntd())
moran.test(std_mntd_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_mntd_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 4.0485, p-value = 0.00002578
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.290664449      -0.003257329       0.005270844 
moran.test(std_mntd_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_mntd_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 3.1544, p-value = 0.0008041
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.213916976      -0.003257329       0.004740043 
std_mntd_analysis_pred_spatial_plot = plot_spatial_result(std_mntd_spatial_model)
Joining with `by = join_by(explanatory)`
std_mntd_analysis_pred_spatial_plot

Normalised

nrm_mntd_analysis_geo_plot = geom_map_nrm(geom_sf(data = analysis_data, aes(color = mntd_normal, geometry = geometry)), 'MNTD')
nrm_mntd_analysis_geo_plot

nrm_mntd_analysis_data = model_data(analysis_data[!is.na(analysis_data$mntd_normal),], 'mntd_normal')
nrm_mntd_analysis_formula = create_formula('mntd_normal')
nrm_mntd_analysis_result = model_average(nrm_mntd_analysis_formula, nrm_mntd_analysis_data)
Fixed term is "(Intercept)"
nrm_mntd_analysis_result_table = model_summary(nrm_mntd_analysis_result)
nrm_mntd_analysis_result_table
nrm_mntd_analysis_pred_plot = plot_dredge_result(nrm_mntd_analysis_result_table)
nrm_mntd_analysis_pred_plot

Do the residuals still contain spatial autocorrelation from a fitted lm?

nrm_mntd_lm = lm(nrm_mntd_analysis_formula, nrm_mntd_analysis_data)
moran.test(nrm_mntd_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  nrm_mntd_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 4.2864, p-value = 0.000009079
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.307465451      -0.003257329       0.005254828 
moran.test(nrm_mntd_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  nrm_mntd_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 2.0944, p-value = 0.01811
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.140725445      -0.003257329       0.004725908 
nrm_mntd_spatial_model = spatial_model(nrm_mntd_analysis_formula, correlation_function_mntd())
moran.test(nrm_mntd_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  nrm_mntd_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 4.7455, p-value = 0.00000104
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.340740843      -0.003257329       0.005254693 
moran.test(nrm_mntd_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  nrm_mntd_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 2.3578, p-value = 0.009192
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.158827607      -0.003257329       0.004725789 
nrm_mntd_analysis_pred_spatial_plot = plot_spatial_result(nrm_mntd_spatial_model)
Joining with `by = join_by(explanatory)`
nrm_mntd_analysis_pred_spatial_plot

Gape width - FDiv

Standardised

std_gape_fdiv_analysis_geo_plot = geom_map_std(geom_sf(data = analysis_data, aes(color = beak_width_fdiv_standard, geometry = geometry)), 'Beak Width FDiv')
std_gape_fdiv_analysis_geo_plot

std_gape_fdiv_analysis_data = model_data(analysis_data[!is.na(analysis_data$beak_width_fdiv_standard),], 'beak_width_fdiv_standard')
std_gape_fdiv_analysis_formula = create_formula('beak_width_fdiv_standard')
std_gape_fdiv_analysis_result = model_average(std_gape_fdiv_analysis_formula, std_gape_fdiv_analysis_data)
Fixed term is "(Intercept)"
std_gape_fdiv_analysis_result_table = model_summary(std_gape_fdiv_analysis_result)
std_gape_fdiv_analysis_result_table
std_gape_fdiv_analysis_pred_plot = plot_dredge_result(std_gape_fdiv_analysis_result_table)
std_gape_fdiv_analysis_pred_plot

Do the residuals still contain spatial autocorrelation from a fitted lm?

std_gape_fdiv_lm = lm(std_gape_fdiv_analysis_formula, std_gape_fdiv_analysis_data)
moran.test(std_gape_fdiv_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_gape_fdiv_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 3.5059, p-value = 0.0002275
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.251017001      -0.003257329       0.005260172 
moran.test(std_gape_fdiv_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_gape_fdiv_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 1.6582, p-value = 0.04864
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.110794578      -0.003257329       0.004730625 
std_gape_fdiv_spatial_model = spatial_model(std_gape_fdiv_analysis_formula, correlation_function_fdiv())
moran.test(std_gape_fdiv_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_gape_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 3.5695, p-value = 0.0001789
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.255641928      -0.003257329       0.005260840 
moran.test(std_gape_fdiv_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_gape_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 1.868, p-value = 0.03088
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.125233427      -0.003257329       0.004731214 
std_gape_fdiv_analysis_pred_spatial_plot = plot_spatial_result(std_gape_fdiv_spatial_model)
Joining with `by = join_by(explanatory)`
std_gape_fdiv_analysis_pred_spatial_plot

Normalised

nrm_gape_fdiv_analysis_geo_plot = geom_map_nrm(geom_sf(data = analysis_data, aes(color = beak_width_fdiv_normal, geometry = geometry)), 'Beak Width FDiv')
nrm_gape_fdiv_analysis_geo_plot

nrm_gape_fdiv_analysis_data = model_data(analysis_data[!is.na(analysis_data$beak_width_fdiv_normal),], 'beak_width_fdiv_normal')
nrm_gape_fdiv_analysis_formula = create_formula('beak_width_fdiv_normal')
nrm_gape_fdiv_analysis_result = model_average(nrm_gape_fdiv_analysis_formula, nrm_gape_fdiv_analysis_data)
Fixed term is "(Intercept)"
nrm_gape_fdiv_analysis_result_table = model_summary(nrm_gape_fdiv_analysis_result)
nrm_gape_fdiv_analysis_result_table
nrm_gape_fdiv_analysis_pred_plot = plot_dredge_result(nrm_gape_fdiv_analysis_result_table)
nrm_gape_fdiv_analysis_pred_plot

Do the residuals still contain spatial autocorrelation from a fitted lm?

nrm_gape_fdiv_lm = lm(nrm_gape_fdiv_analysis_formula, nrm_gape_fdiv_analysis_data)
moran.test(nrm_gape_fdiv_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  nrm_gape_fdiv_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 4.3357, p-value = 0.000007265
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.311050869      -0.003257329       0.005255227 
moran.test(nrm_gape_fdiv_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  nrm_gape_fdiv_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 1.4217, p-value = 0.07756
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.094482089      -0.003257329       0.004726261 
nrm_gape_fdiv_spatial_model = spatial_model(nrm_gape_fdiv_analysis_formula, correlation_function_fdiv())
moran.test(nrm_gape_fdiv_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  nrm_gape_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 4.4995, p-value = 0.000003406
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.322936781      -0.003257329       0.005255637 
moran.test(nrm_gape_fdiv_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  nrm_gape_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 1.7347, p-value = 0.0414
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.116002600      -0.003257329       0.004726623 
nrm_gape_fdiv_analysis_pred_spatial_plot = plot_spatial_result(nrm_gape_fdiv_spatial_model)
Joining with `by = join_by(explanatory)`
nrm_gape_fdiv_analysis_pred_spatial_plot

HWI - FDiv

Standardised

std_hwi_fdiv_analysis_geo_plot = geom_map_std(geom_sf(data = analysis_data, aes(color = hwi_fdiv_standard, geometry = geometry)), 'HWI FDiv')
std_hwi_fdiv_analysis_geo_plot

std_hwi_fdiv_analysis_data = model_data(analysis_data[!is.na(analysis_data$hwi_fdiv_standard),], 'hwi_fdiv_standard')
std_hwi_fdiv_analysis_formula = create_formula('hwi_fdiv_standard')
std_hwi_fdiv_analysis_result = model_average(std_hwi_fdiv_analysis_formula, std_hwi_fdiv_analysis_data)
Fixed term is "(Intercept)"
std_hwi_fdiv_analysis_result_table = model_summary(std_hwi_fdiv_analysis_result)
std_hwi_fdiv_analysis_result_table
std_hwi_fdiv_analysis_pred_plot = plot_dredge_result(std_hwi_fdiv_analysis_result_table)
std_hwi_fdiv_analysis_pred_plot

std_hwi_fdiv_lm = lm(std_hwi_fdiv_analysis_formula, std_hwi_fdiv_analysis_data)
moran.test(std_hwi_fdiv_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_hwi_fdiv_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 6.1738, p-value = 0.0000000003333
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.444286636      -0.003257329       0.005254904 
moran.test(std_hwi_fdiv_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_hwi_fdiv_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 3.8009, p-value = 0.00007207
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.258041658      -0.003257329       0.004725975 
std_hwi_fdiv_spatial_model = spatial_model(std_hwi_fdiv_analysis_formula, correlation_function_fdiv())
moran.test(std_hwi_fdiv_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_hwi_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.2179, p-value = 0.0000000000002639
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.520272713      -0.003257329       0.005260863 
moran.test(std_hwi_fdiv_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_hwi_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 3.3854, p-value = 0.0003554
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.229604043      -0.003257329       0.004731234 
std_hwi_fdiv_analysis_pred_spatial_plot = plot_spatial_result(std_hwi_fdiv_spatial_model)
Joining with `by = join_by(explanatory)`
std_hwi_fdiv_analysis_pred_spatial_plot

Normalised

nrm_hwi_fdiv_analysis_geo_plot = geom_map_nrm(geom_sf(data = analysis_data, aes(color = hwi_fdiv_normal, geometry = geometry)), 'HWI FDiv')
nrm_hwi_fdiv_analysis_geo_plot

nrm_hwi_fdiv_analysis_data = model_data(analysis_data[!is.na(analysis_data$hwi_fdiv_normal),], 'hwi_fdiv_normal')
nrm_hwi_fdiv_analysis_formula = create_formula('hwi_fdiv_normal')
nrm_hwi_fdiv_analysis_result = model_average(nrm_hwi_fdiv_analysis_formula, nrm_hwi_fdiv_analysis_data)
Fixed term is "(Intercept)"
nrm_hwi_fdiv_analysis_result_table = model_summary(nrm_hwi_fdiv_analysis_result)
nrm_hwi_fdiv_analysis_result_table
nrm_hwi_fdiv_analysis_pred_plot = plot_dredge_result(nrm_hwi_fdiv_analysis_result_table)
nrm_hwi_fdiv_analysis_pred_plot

nrm_hwi_fdiv_lm = lm(nrm_hwi_fdiv_analysis_formula, nrm_hwi_fdiv_analysis_data)
moran.test(nrm_hwi_fdiv_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  nrm_hwi_fdiv_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.0294, p-value = 0.000000000001037
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.505183959      -0.003257329       0.005231738 
moran.test(nrm_hwi_fdiv_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  nrm_hwi_fdiv_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 3.6271, p-value = 0.0001433
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.245547978      -0.003257329       0.004705532 
nrm_hwi_fdiv_spatial_model = spatial_model(nrm_hwi_fdiv_analysis_formula, correlation_function_fdiv())
moran.test(nrm_hwi_fdiv_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  nrm_hwi_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 8.1492, p-value < 0.00000000000000022
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.587846115      -0.003257329       0.005261332 
moran.test(nrm_hwi_fdiv_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  nrm_hwi_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 3.5151, p-value = 0.0002198
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.238537056      -0.003257329       0.004731648 
nrm_hwi_fdiv_analysis_pred_spatial_plot = plot_spatial_result(nrm_hwi_fdiv_spatial_model)
Joining with `by = join_by(explanatory)`
nrm_hwi_fdiv_analysis_pred_spatial_plot

Mass - FDiv

Standardised

std_mass_fdiv_analysis_geo_plot = geom_map_std(geom_sf(data = analysis_data, aes(color = mass_fdiv_standard, geometry = geometry)), 'Mass FDiv')
std_mass_fdiv_analysis_geo_plot

std_mass_fdiv_analysis_data = model_data(analysis_data[!is.na(analysis_data$mass_fdiv_standard),], 'mass_fdiv_standard')
std_mass_fdiv_analysis_formula = create_formula('mass_fdiv_standard')
std_mass_fdiv_analysis_result <- model_average(std_mass_fdiv_analysis_formula, std_mass_fdiv_analysis_data)
Fixed term is "(Intercept)"
std_mass_fdiv_analysis_result_table = model_summary(std_mass_fdiv_analysis_result)
std_mass_fdiv_analysis_result_table
std_mass_fdiv_analysis_pred_plot = plot_dredge_result(std_mass_fdiv_analysis_result_table)
std_mass_fdiv_analysis_pred_plot

std_mass_fdiv_lm = lm(std_mass_fdiv_analysis_formula, std_mass_fdiv_analysis_data)
moran.test(std_mass_fdiv_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_mass_fdiv_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.4467, p-value = 0.00000000000004785
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.536475629      -0.003257329       0.005253273 
moran.test(std_mass_fdiv_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_mass_fdiv_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 4.7957, p-value = 0.0000008107
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.326373879      -0.003257329       0.004724537 
std_mass_fdiv_spatial_model = spatial_model(std_mass_fdiv_analysis_formula, correlation_function_fdiv())
moran.test(std_mass_fdiv_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_mass_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.9698, p-value = 0.0000000000000007945
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.574414910      -0.003257329       0.005253707 
moran.test(std_mass_fdiv_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_mass_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 5.3014, p-value = 0.00000005745
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.361152294      -0.003257329       0.004724919 
std_mass_fdiv_analysis_pred_spatial_plot = plot_spatial_result(std_mass_fdiv_spatial_model)
Joining with `by = join_by(explanatory)`
std_mass_fdiv_analysis_pred_spatial_plot

Normalised

nrm_mass_fdiv_analysis_geo_plot = geom_map_nrm(geom_sf(data = analysis_data, aes(color = mass_fdiv_normal, geometry = geometry)), 'Mass FDiv')
nrm_mass_fdiv_analysis_geo_plot

nrm_mass_fdiv_analysis_data = model_data(analysis_data[!is.na(analysis_data$mass_fdiv_normal),], 'mass_fdiv_normal')
nrm_mass_fdiv_analysis_formula = create_formula('mass_fdiv_normal')
nrm_mass_fdiv_analysis_result = model_average(nrm_mass_fdiv_analysis_formula, nrm_mass_fdiv_analysis_data)
Fixed term is "(Intercept)"
nrm_mass_fdiv_analysis_result_table = model_summary(nrm_mass_fdiv_analysis_result)
nrm_mass_fdiv_analysis_result_table
nrm_mass_fdiv_analysis_pred_plot = plot_dredge_result(nrm_mass_fdiv_analysis_result_table)
nrm_mass_fdiv_analysis_pred_plot

nrm_mass_fdiv_lm = lm(nrm_mass_fdiv_analysis_formula, nrm_mass_fdiv_analysis_data)
moran.test(nrm_mass_fdiv_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  nrm_mass_fdiv_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 6.9903, p-value = 0.000000000001372
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.503538387      -0.003257329       0.005256267 
moran.test(nrm_mass_fdiv_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  nrm_mass_fdiv_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 2.9195, p-value = 0.001753
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.197472475      -0.003257329       0.004727179 
nrm_mass_fdiv_spatial_model = spatial_model(nrm_mass_fdiv_analysis_formula, correlation_function_fdiv())
moran.test(nrm_mass_fdiv_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  nrm_mass_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.5406, p-value = 0.0000000000000234
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.543587169      -0.003257329       0.005259210 
moran.test(nrm_mass_fdiv_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  nrm_mass_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 3.2302, p-value = 0.0006185
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.218896280      -0.003257329       0.004729776 
nrm_mass_fdiv_analysis_pred_spatial_plot = plot_spatial_result(nrm_mass_fdiv_spatial_model)
Joining with `by = join_by(explanatory)`
nrm_mass_fdiv_analysis_pred_spatial_plot

Create plot of differences in process response

fig = function(trait_name, response_type, geo_plot, predictor_plot) {
  grid.arrange(
    arrangeGrob(grid::textGrob(trait_name, x = 0.02, hjust = 0, gp=gpar(fontface="bold"))),
    arrangeGrob(grid::textGrob(paste('A)', response_type,'response by city'), x = 0.02, hjust = 0, gp=gpar(fontface="bold"))),
    geo_plot,
    arrangeGrob(grid::textGrob(paste('B)', response_type, 'response predictors'), x = 0.02, hjust = 0, gp=gpar(fontface="bold"))),
    predictor_plot + theme(legend.position = 'bottom') + guides(colour = guide_legend(nrow=2, byrow=TRUE)),
    heights = c(0.25, 0.25, 4, 0.25, 3),
    nrow = 5
  )
}


fig('MNTD', 'Standardised', std_mntd_analysis_geo_plot, std_mntd_analysis_pred_plot)

MNTD

jpeg(filename(FIGURES_OUTPUT_DIR, 'figure2_std_mntd.jpg'), width = 200, height = 220, units = 'mm', res = 300)
grid.arrange(
  arrangeGrob(fig('MNTD', 'Standardised', std_mntd_analysis_geo_plot, std_mntd_analysis_pred_plot)),
  ncol = 1
  )
dev.off()
null device 
          1 
jpeg(filename(FIGURES_OUTPUT_DIR, 'figure2_nrm_mntd.jpg'), width = 200, height = 220, units = 'mm', res = 300)
grid.arrange(
  arrangeGrob(fig('MNTD', 'Normalised', nrm_mntd_analysis_geo_plot, nrm_mntd_analysis_pred_plot)),
  ncol = 1
  )
dev.off()
null device 
          1 

Beak Width

jpeg(filename(FIGURES_OUTPUT_DIR, 'figure2_std_beak_width.jpg'), width = 200, height = 220, units = 'mm', res = 300)
grid.arrange(
  arrangeGrob(fig('Beak Width', 'Standardised', std_gape_fdiv_analysis_geo_plot, std_gape_fdiv_analysis_pred_plot)),
  ncol = 1
  )
dev.off()
null device 
          1 
jpeg(filename(FIGURES_OUTPUT_DIR, 'figure2_nrm_beak_width.jpg'), width = 200, height = 220, units = 'mm', res = 300)
grid.arrange(
  arrangeGrob(fig('Beak Width', 'Normalised', nrm_gape_fdiv_analysis_geo_plot, nrm_gape_fdiv_analysis_pred_plot)),
  ncol = 1
  )
dev.off()
null device 
          1 

HWI

jpeg(filename(FIGURES_OUTPUT_DIR, 'figure2_std_hwi.jpg'), width = 200, height = 220, units = 'mm', res = 300)
grid.arrange(
  arrangeGrob(fig('HWI (Hand-wing Index)', 'Standardised', std_hwi_fdiv_analysis_geo_plot, std_hwi_fdiv_analysis_pred_plot)),
  ncol = 1
  )
dev.off()
null device 
          1 
jpeg(filename(FIGURES_OUTPUT_DIR, 'figure2_nrm_hwi.jpg'), width = 200, height = 220, units = 'mm', res = 300)
grid.arrange(
  arrangeGrob(fig('HWI (Hand-wing Index)', 'Normalised', nrm_hwi_fdiv_analysis_geo_plot, nrm_hwi_fdiv_analysis_pred_plot)),
  ncol = 1
  )
dev.off()
null device 
          1 

Mass

jpeg(filename(FIGURES_OUTPUT_DIR, 'figure2_std_mass.jpg'), width = 200, height = 220, units = 'mm', res = 300)
grid.arrange(
  arrangeGrob(fig('Mass', 'Standardised', std_mass_fdiv_analysis_geo_plot, std_mass_fdiv_analysis_pred_plot)),
  ncol = 1
  )
dev.off()
null device 
          1 
jpeg(filename(FIGURES_OUTPUT_DIR, 'figure2_nrm_mass.jpg'), width = 200, height = 220, units = 'mm', res = 300)
grid.arrange(
  arrangeGrob(fig('Mass', 'Normalised', nrm_mass_fdiv_analysis_geo_plot, nrm_mass_fdiv_analysis_pred_plot)),
  ncol = 1
  )
dev.off()
null device 
          1 

Compare to spatial model

plot_grid(
  plot_grid(
    ggdraw() + 
    draw_label(
      "Spatial Model (standardised)",
      fontface = 'bold',
      x = 0,
      hjust = 0
    ),
    ggdraw() + 
    draw_label(
      "Spatial Model (normalised)",
      fontface = 'bold',
      x = 0,
      hjust = 0
    ),
    ggdraw() + 
    draw_label(
      "Dredge Result (standardised)",
      fontface = 'bold',
      x = 0,
      hjust = 0
    ),
    ggdraw() + 
    draw_label(
      "Dredge Result (normalised)",
      fontface = 'bold',
      x = 0,
      hjust = 0
    ),
    nrow = 1
  ),
  plot_grid(
    std_mntd_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrm_mntd_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-1, 1)) + ylab(''), 
    std_mntd_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrm_mntd_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-1, 1)) + ylab(''), 
    nrow = 1
  ) + draw_label("MNTD", size = 16, angle = 90, x = 0.01, y = 0.5),
  plot_grid(
    std_gape_fdiv_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrm_gape_fdiv_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-1, 1)) + ylab(''), 
    std_gape_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''),  
    nrm_gape_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-1, 1)) + ylab(''), 
    nrow = 1
  ) + draw_label("Beak Width", size = 16, angle = 90, x = 0.01, y = 0.5),
  plot_grid(
    std_hwi_fdiv_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrm_hwi_fdiv_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-1, 1)) + ylab(''), 
    std_hwi_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''),  
    nrm_hwi_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-1, 1)) + ylab(''), 
    nrow = 1
  ) + draw_label("HWI", size = 16, angle = 90, x = 0.01, y = 0.5),
  plot_grid(
    std_mass_fdiv_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrm_mass_fdiv_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-1, 1)) + ylab(''), 
    std_mass_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''),  
    nrm_mass_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-1, 1)) + ylab(''), 
    nrow = 1
  ) + draw_label("Mass", size = 16, angle = 90, x = 0.01, y = 0.5), 
  nrow = 5, rel_heights = c(1, 4, 4, 4, 4)
)
`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?
ggsave(filename(FIGURES_OUTPUT_DIR, 'process_response_vs_spatial.jpg'), width = 4000, height = 3200, units = 'px')

Compare metrics against each other

ggplot(analysis_data, aes(x = beak_width_fdiv_standard, y = mntd_standard, colour = core_realm)) + 
  geom_point() +
  ylab("MNTD") + 
  xlab("Beak Width FDiv") +
  theme_bw() + labs(color = "Realm")

ggplot(analysis_data, aes(x = hwi_fdiv_standard, y = mntd_standard, colour = core_realm)) + 
  geom_point() +
  ylab("MNTD") + 
  xlab("HWI FDiv") +
  theme_bw() + labs(color = "Realm")

ggplot(analysis_data, aes(x = hwi_fdiv_standard, y = beak_width_fdiv_standard, colour = core_realm)) + 
  geom_point() +
  ylab("Beak Width FDiv") + 
  xlab("HWI FDiv") +
  theme_bw() + labs(color = "Realm")

mntd_fdiv_analysis = analysis_data %>% 
  dplyr::select(city_id,  mntd_standard, hwi_fdiv_standard, beak_width_fdiv_standard, mass_fdiv_standard) %>%
  left_join(community_summary) %>%
  mutate(urban_pool_perc = urban_pool_size * 100 / regional_pool_size)
Joining with `by = join_by(city_id)`
mntd_fdiv_analysis
ggpairs(mntd_fdiv_analysis %>% dplyr::select(mntd_standard, hwi_fdiv_standard, beak_width_fdiv_standard, mass_fdiv_standard, regional_pool_size, urban_pool_size, urban_pool_perc), columnLabels = c('MNTD', 'HWI FD', 'Bk FD', 'Mss FD', 'Region Rich.', 'Urban Rich.', '% Urban'))
ggsave(filename(FIGURES_OUTPUT_DIR, 'appendix_standarised_correlation.jpg'))
Saving 7.29 x 4.51 in image

Intraction term between introduced species and realm

create_interaction_formula = function(response_var) {
  as.formula(paste(response_var, '~ core_realm * has_introduced_species'))
}
interaction_type_labels = function(p) {
  explanatory_levels = all_explanatories[all_explanatories %in% p$explanatory]
  p$explanatory <- factor(p$explanatory, levels = explanatory_levels)
  
  p$type <- 'Interaction'
  p$type[p$explanatory %in% c('core_realmNearctic', 'core_realmNeotropic', 'core_realmAfrotropic', 'core_realmIndomalayan', 'core_realmAustralasia')] <- 'Realm'
  p$type[p$explanatory %in% c('has_introduced_speciesNo introduced species', 'has_introduced_speciesIntroduced species')] <- 'Introduced species'
  p
}
plot_dredge_interaction_result = function(result_table, mu = 0) {
  p = result_table[result_table$model == 'full',]
  p = interaction_type_labels(p)

  ggplot(p, aes(y = explanatory, x = estimate, colour = type)) + 
    geom_line() +
    geom_point() +
    geom_errorbar(aes(xmin=estimate-error, xmax=estimate+error), width=.2,
                   position=position_dodge(0.05)) +
    scale_y_discrete(
      limits = rev(levels(p$explanatory)), 
      labels = explanatory_labels) +
    scale_colour_manual(
      values = c(realm_colour, interaction_colour, introduced_species_colour), 
      breaks = c('Realm', 'Interaction', 'Introduced species')) +
    theme_bw() +
    geom_vline(xintercept=mu, linetype="dotted") +
    guides(colour=guide_legend(title="Predictor type")) + xlab('Difference in response from 0\nhabitat filtering (< 0) and competitive interactions (> 0)\n± Standard Error') + ylab('Predictor') +
    theme(legend.justification = "top")
}

MNTD

Standardised

std_mntd_interaction_formula = create_interaction_formula('mntd_standard')
std_mntd_interaction_result = model_average(std_mntd_interaction_formula, std_mntd_analysis_data)
Fixed term is "(Intercept)"
std_mntd_interaction_result_table = model_summary(std_mntd_interaction_result)
std_mntd_interaction_result_table
std_mntd_interaction_pred_plot = plot_dredge_interaction_result(std_mntd_interaction_result_table)
std_mntd_interaction_pred_plot
ggsave(filename(FIGURES_OUTPUT_DIR, 'figure4_std_mntd_interaction.jpg'))
Saving 7.29 x 4.51 in image

Normalised

nrm_mntd_interaction_formula = create_interaction_formula('mntd_normal')
nrm_mntd_interaction_result = model_average(nrm_mntd_interaction_formula, nrm_mntd_analysis_data)
Fixed term is "(Intercept)"
nrm_mntd_interaction_result_table = model_summary(nrm_mntd_interaction_result)
nrm_mntd_interaction_result_table
nrm_mntd_interaction_pred_plot = plot_dredge_interaction_result(nrm_mntd_interaction_result_table)
nrm_mntd_interaction_pred_plot
ggsave(filename(FIGURES_OUTPUT_DIR, 'figure4_nrm_mntd_interaction.jpg'))
Saving 7.29 x 4.51 in image

Beak Width

Standardised

std_gape_interaction_formula = create_interaction_formula('beak_width_fdiv_standard')
std_gape_interaction_result = model_average(std_gape_interaction_formula, std_gape_fdiv_analysis_data)
Fixed term is "(Intercept)"
std_gape_interaction_result_table = model_summary(std_gape_interaction_result)
std_mntd_interaction_result_table
std_gape_interaction_pred_plot = plot_dredge_interaction_result(std_gape_interaction_result_table)
std_gape_interaction_pred_plot
ggsave(filename(FIGURES_OUTPUT_DIR, 'figure4_std_beak_width_interaction.jpg'))
Saving 7.29 x 4.51 in image

Normalised

nrm_gape_interaction_formula = create_interaction_formula('beak_width_fdiv_normal')
nrm_gape_interaction_result = model_average(nrm_gape_interaction_formula, nrm_gape_fdiv_analysis_data)
Fixed term is "(Intercept)"
nrm_gape_interaction_result_table = model_summary(nrm_gape_interaction_result)
nrm_gape_interaction_result_table
nrm_gape_interaction_pred_plot = plot_dredge_interaction_result(nrm_gape_interaction_result_table)
nrm_gape_interaction_pred_plot
ggsave(filename(FIGURES_OUTPUT_DIR, 'figure4_nrm_beak_width_interaction.jpg'))
Saving 7.29 x 4.51 in image

HWI

Standardised

std_hwi_interaction_formula = create_interaction_formula('hwi_fdiv_standard')
std_hwi_interaction_result = model_average(std_hwi_interaction_formula, std_hwi_fdiv_analysis_data)
Fixed term is "(Intercept)"
std_hwi_interaction_result_table = model_summary(std_hwi_interaction_result)
std_hwi_interaction_result_table
std_hwi_interaction_pred_plot = plot_dredge_interaction_result(std_hwi_interaction_result_table)
std_hwi_interaction_pred_plot
ggsave(filename(FIGURES_OUTPUT_DIR, 'figure4_std_hwi_interaction.jpg'))
Saving 7.29 x 4.51 in image

Normalised

nrm_hwi_interaction_formula = create_interaction_formula('hwi_fdiv_normal')
nrm_hwi_interaction_result = model_average(nrm_hwi_interaction_formula, nrm_hwi_fdiv_analysis_data)
Fixed term is "(Intercept)"
nrm_hwi_interaction_result_table = model_summary(nrm_hwi_interaction_result)
nrm_hwi_interaction_result_table
nrm_hwi_interaction_pred_plot = plot_dredge_interaction_result(nrm_hwi_interaction_result_table)
nrm_hwi_interaction_pred_plot
ggsave(filename(FIGURES_OUTPUT_DIR, 'figure4_nrm_hwi_interaction.jpg'))
Saving 7.29 x 4.51 in image

Mass

Standardised

std_mass_interaction_formula = create_interaction_formula('mass_fdiv_standard')
std_mass_interaction_result = model_average(std_mass_interaction_formula, std_mass_fdiv_analysis_data)
Fixed term is "(Intercept)"
std_mass_interaction_result_table = model_summary(std_mass_interaction_result)
std_mass_interaction_result_table
std_mass_interaction_pred_plot = plot_dredge_interaction_result(std_mass_interaction_result_table)
std_mass_interaction_pred_plot
ggsave(filename(FIGURES_OUTPUT_DIR, 'figure4_std_mass_interaction.jpg'))
Saving 7.29 x 4.51 in image

Normalised

nrm_mass_interaction_formula = create_interaction_formula('mass_fdiv_normal')
nrm_mass_interaction_result = model_average(nrm_mass_interaction_formula, nrm_mass_fdiv_analysis_data)
Fixed term is "(Intercept)"
nrm_mass_interaction_result_table = model_summary(nrm_mass_interaction_result)
nrm_mass_interaction_result_table
nrm_mass_interaction_pred_plot = plot_dredge_interaction_result(nrm_mass_interaction_result_table)
nrm_mass_interaction_pred_plot
ggsave(filename(FIGURES_OUTPUT_DIR, 'figure4_nrm_mass_interaction.jpg'))
Saving 7.29 x 4.51 in image

LS0tCnRpdGxlOiAiTWV0cmljcyBmb3IgYXNzZXNzaW5nIGNvbW11bml0eSBhc3NlbWJseSBwcm9jZXNzZXMiCm91dHB1dDogaHRtbF9ub3RlYm9vawpiaWJsaW9ncmFwaHk6IC4uL3JlZi5iaWIgIAotLS0KCmBgYHtyfQpzb3VyY2UoJy4uL2Vudi5SJykKYGBgCgpgYGB7cn0KY29tbXVuaXR5X2RhdGEgPSByZWFkX2NzdihmaWxlbmFtZShDT01NVU5JVFlfT1VUUFVUX0RJUiwgJ2NvbW11bml0eV9hc3NlbWJseV9tZXRyaWNzX3VzaW5nX3JlbGF0aXZlX2FidW5kYW5jZS5jc3YnKSkKaGVhZChjb21tdW5pdHlfZGF0YSkKY29sbmFtZXMoY29tbXVuaXR5X2RhdGEpCmBgYAoKYGBge3J9Cm1pbihjb21tdW5pdHlfZGF0YSRtbnRkX3N0YW5kYXJkKQptYXgoY29tbXVuaXR5X2RhdGEkbW50ZF9zdGFuZGFyZCkKbWluKGNvbW11bml0eV9kYXRhJGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCkKbWF4KGNvbW11bml0eV9kYXRhJGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCkKbWluKGNvbW11bml0eV9kYXRhJGh3aV9mZGl2X3N0YW5kYXJkKQptYXgoY29tbXVuaXR5X2RhdGEkaHdpX2ZkaXZfc3RhbmRhcmQpCm1pbihjb21tdW5pdHlfZGF0YSRtYXNzX2ZkaXZfc3RhbmRhcmQpCm1heChjb21tdW5pdHlfZGF0YSRtYXNzX2ZkaXZfc3RhbmRhcmQpCmBgYAoKYGBge3J9Cm1pbihjb21tdW5pdHlfZGF0YSRtbnRkX25vcm1hbCkKbWF4KGNvbW11bml0eV9kYXRhJG1udGRfbm9ybWFsKQptaW4oY29tbXVuaXR5X2RhdGEkYmVha193aWR0aF9mZGl2X25vcm1hbCkKbWF4KGNvbW11bml0eV9kYXRhJGJlYWtfd2lkdGhfZmRpdl9ub3JtYWwpCm1pbihjb21tdW5pdHlfZGF0YSRod2lfZmRpdl9ub3JtYWwpCm1heChjb21tdW5pdHlfZGF0YSRod2lfZmRpdl9ub3JtYWwpCm1pbihjb21tdW5pdHlfZGF0YSRtYXNzX2ZkaXZfbm9ybWFsKQptYXgoY29tbXVuaXR5X2RhdGEkbWFzc19mZGl2X25vcm1hbCkKYGBgCgpKb2luIG9uIHJlYWxtcwpgYGB7cn0KY2l0eV90b19yZWFsbSA9IHJlYWRfY3N2KGZpbGVuYW1lKENJVFlfREFUQV9PVVRQVVRfRElSLCAncmVhbG1zLmNzdicpKQpjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtID0gbGVmdF9qb2luKGNvbW11bml0eV9kYXRhLCBjaXR5X3RvX3JlYWxtKQpgYGAKCkNpdGllcyBhcyBwb2ludHMKYGBge3J9CmNpdHlfcG9pbnRzID0gc3RfY2VudHJvaWQocmVhZF9zZihmaWxlbmFtZShDSVRZX0RBVEFfT1VUUFVUX0RJUiwgJ2NpdHlfc2VsZWN0aW9uLnNocCcpKSkgJT4lIGxlZnRfam9pbihjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtKQpjaXR5X3BvaW50c19jb29yZHMgPSBzdF9jb29yZGluYXRlcyhjaXR5X3BvaW50cykKY2l0eV9wb2ludHMkbGF0aXR1ZGUgPSBjaXR5X3BvaW50c19jb29yZHNbLDFdCmNpdHlfcG9pbnRzJGxvbmdpdHVkZSA9IGNpdHlfcG9pbnRzX2Nvb3Jkc1ssMl0KYGBgCiAgCmBgYHtyfQp3b3JsZF9tYXAgPSByZWFkX2NvdW50cnlfYm91bmRhcmllcygpCmBgYAoKTG9hZCBjb21tdW5pdHkgZGF0YSwgYW5kIGNyZWF0ZSBsb25nIGZvcm1hdCB2ZXJzaW9uCmBgYHtyfQpjb21tdW5pdGllcyA9IHJlYWRfY3N2KGZpbGVuYW1lKENPTU1VTklUWV9PVVRQVVRfRElSLCAnY29tbXVuaXRpZXNfZm9yX2FuYWx5c2lzLmNzdicpKQpjb21tdW5pdGllcwpgYGAKCmBgYHtyfQpjb21tdW5pdHlfc3VtbWFyeSA9IGNvbW11bml0aWVzICU+JSBncm91cF9ieShjaXR5X2lkKSAlPiUgc3VtbWFyaXNlKHJlZ2lvbmFsX3Bvb2xfc2l6ZSA9IG4oKSwgdXJiYW5fcG9vbF9zaXplID0gc3VtKHJlbGF0aXZlX2FidW5kYW5jZV9wcm94eSA+IDApKQpjb21tdW5pdHlfc3VtbWFyeQpgYGAKCkxvYWQgdHJhaXQgZGF0YQpgYGB7cn0KdHJhaXRzID0gcmVhZF9jc3YoZmlsZW5hbWUoVEFYT05PTVlfT1VUUFVUX0RJUiwgJ3RyYWl0c19lYmlyZC5jc3YnKSkKaGVhZCh0cmFpdHMpCmBgYAoKTG9hZCBzcGF0aWFsIHZhcgpgYGB7cn0Kc3BhdGlhbF92YXIgPSByZWFkX2NzdihmaWxlbmFtZShDT01NVU5JVFlfT1VUUFVUX0RJUiwgJ3NwYXRpYWxfdmFyLmNzdicpKSAlPiUgZmlsdGVyKGNpdHlfaWQgJWluJSBjb21tdW5pdHlfc3VtbWFyeSRjaXR5X2lkKQpzcGF0aWFsX3ZhcgpgYGAKCiMgU3VtbWFyeSBtZXRyaWNzIGJ5IFJlYWxtCmBgYHtyfQp0ZXN0X3JlcXVpcmVkX3ZhbHVlcyA9IGZ1bmN0aW9uKG5hbWUsIGRmKSB7CiAgY2F0KHBhc3RlKAogICAgdGVzdF92YWx1ZV93aWxjb3gocGFzdGUobmFtZSwgJ1N0ZDogTU5URCcpLCBkZiRtbnRkX3N0YW5kYXJkKSwKICAgIHRlc3RfdmFsdWVfd2lsY294KHBhc3RlKG5hbWUsICdTdGQ6IEJlYWsgV2lkdGggRkRpdicpLCBkZiRiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQpLAogICAgdGVzdF92YWx1ZV93aWxjb3gocGFzdGUobmFtZSwgJ1N0ZDogSFdJIEZEaXYnKSwgZGYkaHdpX2ZkaXZfc3RhbmRhcmQpLAogICAgdGVzdF92YWx1ZV93aWxjb3gocGFzdGUobmFtZSwgJ1N0ZDogTWFzcyBGRGl2JyksIGRmJG1hc3NfZmRpdl9zdGFuZGFyZCksCiAgICAKICAgIHRlc3RfdmFsdWVfd2lsY294KHBhc3RlKG5hbWUsICdOb3JtOiBNTlREJyksIGRmJG1udGRfbm9ybWFsLCBtdSA9IDAuNSksCiAgICB0ZXN0X3ZhbHVlX3dpbGNveChwYXN0ZShuYW1lLCAnTm9ybTogQmVhayBXaWR0aCBGRGl2JyksIGRmJGJlYWtfd2lkdGhfZmRpdl9ub3JtYWwsIG11ID0gMC41KSwKICAgIHRlc3RfdmFsdWVfd2lsY294KHBhc3RlKG5hbWUsICdOb3JtOiBIV0kgRkRpdicpLCBkZiRod2lfZmRpdl9ub3JtYWwsIG11ID0gMC41KSwKICAgIHRlc3RfdmFsdWVfd2lsY294KHBhc3RlKG5hbWUsICdOb3JtOiBNYXNzIEZEaXYnKSwgZGYkbWFzc19mZGl2X25vcm1hbCwgbXUgPSAwLjUpLAogICAgcGFzdGUoJ04nLCBucm93KGRmKSksCiAgICBzZXAgPSAiXG4iKSkKfQpgYGAKCmBgYHtyfQp0ZXN0X3JlcXVpcmVkX3ZhbHVlcygnR2xvYmFsJywgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSkKYGBgCgpgYGB7cn0KdW5pcXVlKGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0kY29yZV9yZWFsbSkKYGBgCgpgYGB7cn0KdGVzdF9yZXF1aXJlZF92YWx1ZXMoJ05lYXJjdGljJywgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbVtjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGNvcmVfcmVhbG0gPT0gJ05lYXJjdGljJyxdKQpgYGAKCmBgYHtyfQp0ZXN0X3JlcXVpcmVkX3ZhbHVlcygnTmVvdHJvcGljJywgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbVtjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGNvcmVfcmVhbG0gPT0gJ05lb3Ryb3BpYycsXSkKYGBgCgpgYGB7cn0KdGVzdF9yZXF1aXJlZF92YWx1ZXMoJ1BhbGVhcmN0aWMnLCBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtW2NvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0kY29yZV9yZWFsbSA9PSAnUGFsZWFyY3RpYycsXSkKYGBgCgpgYGB7cn0KdGVzdF9yZXF1aXJlZF92YWx1ZXMoJ0Fmcm90cm9waWMnLCBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtW2NvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0kY29yZV9yZWFsbSA9PSAnQWZyb3Ryb3BpYycsXSkKYGBgCgpgYGB7cn0KdGVzdF9yZXF1aXJlZF92YWx1ZXMoJ0luZG9tYWxheWFuJywgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbVtjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGNvcmVfcmVhbG0gPT0gJ0luZG9tYWxheWFuJyxdKQpgYGAKCmBgYHtyfQp0ZXN0X3JlcXVpcmVkX3ZhbHVlcygnQXVzdHJhbGFzaWEnLCBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtW2NvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0kY29yZV9yZWFsbSA9PSAnQXVzdHJhbGFzaWEnLF0pCmBgYAoKIyMgSG93IHNpZ25pZmljYW50IGFyZSB0aG9zZSBkaWZmZXJlbmNlczoKYGBge3J9CnByaW50KCdTdGFuZGFyZCcpCmtydXNrYWwudGVzdChtbnRkX3N0YW5kYXJkfmNvcmVfcmVhbG0sIGRhdGEgPSBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtKQpwYWlyd2lzZS53aWxjb3gudGVzdChjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJG1udGRfc3RhbmRhcmQsIGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0kY29yZV9yZWFsbSkKcHJpbnQoJ05vcm1hbCcpCmtydXNrYWwudGVzdChtbnRkX25vcm1hbH5jb3JlX3JlYWxtLCBkYXRhID0gY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSkKcGFpcndpc2Uud2lsY294LnRlc3QoY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRtbnRkX25vcm1hbCwgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRjb3JlX3JlYWxtKQpgYGAKCmBgYHtyfQpwcmludCgnU3RhbmRhcmQnKQprcnVza2FsLnRlc3QoYmVha193aWR0aF9mZGl2X3N0YW5kYXJkfmNvcmVfcmVhbG0sIGRhdGEgPSBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtKQpwYWlyd2lzZS53aWxjb3gudGVzdChjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCwgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRjb3JlX3JlYWxtKQpwcmludCgnTm9ybWFsJykKa3J1c2thbC50ZXN0KGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZH5jb3JlX3JlYWxtLCBkYXRhID0gY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSkKcGFpcndpc2Uud2lsY294LnRlc3QoY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQsIGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0kY29yZV9yZWFsbSkKYGBgCgpgYGB7cn0KcHJpbnQoJ1N0YW5kYXJkJykKa3J1c2thbC50ZXN0KGh3aV9mZGl2X3N0YW5kYXJkfmNvcmVfcmVhbG0sIGRhdGEgPSBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtKQpwYWlyd2lzZS53aWxjb3gudGVzdChjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGh3aV9mZGl2X3N0YW5kYXJkLCBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGNvcmVfcmVhbG0pCnByaW50KCdOb3JtYWwnKQprcnVza2FsLnRlc3QoaHdpX2ZkaXZfbm9ybWFsfmNvcmVfcmVhbG0sIGRhdGEgPSBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtKQpwYWlyd2lzZS53aWxjb3gudGVzdChjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGh3aV9mZGl2X25vcm1hbCwgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRjb3JlX3JlYWxtKQpgYGAKCmBgYHtyfQpwcmludCgnU3RhbmRhcmQnKQprcnVza2FsLnRlc3QobWFzc19mZGl2X3N0YW5kYXJkfmNvcmVfcmVhbG0sIGRhdGEgPSBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtKQpwYWlyd2lzZS53aWxjb3gudGVzdChjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJG1hc3NfZmRpdl9zdGFuZGFyZCwgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRjb3JlX3JlYWxtKQpwcmludCgnTm9ybWFsJykKa3J1c2thbC50ZXN0KG1hc3NfZmRpdl9ub3JtYWx+Y29yZV9yZWFsbSwgZGF0YSA9IGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0pCnBhaXJ3aXNlLndpbGNveC50ZXN0KGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0kbWFzc19mZGl2X25vcm1hbCwgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRjb3JlX3JlYWxtKQpgYGAKIyBXaGF0IGZhbWlsaWVzIGV4aXN0IGluIHdoaWNoIHJlYWxtcz8KYGBge3J9CmNvbW11bml0aWVzICU+JSAKICBsZWZ0X2pvaW4oY2l0eV90b19yZWFsbSkgJT4lIAogIG11dGF0ZShmYW1pbHkgPSBnc3ViKCAiIC4qJCIsICIiLCBlYmlyZF9zcGVjaWVzX25hbWUpKSAlPiUKICBkcGx5cjo6c2VsZWN0KGZhbWlseSwgY29yZV9yZWFsbSkgJT4lCiAgZGlzdGluY3QoKSAlPiUKICBhcnJhbmdlKGNvcmVfcmVhbG0pCmBgYAoKIyMgVG90YWwgdXJiYW4gZmFtaWxpZXMKYGBge3J9CmNvbW11bml0aWVzICU+JSAKICBtdXRhdGUoZmFtaWx5ID0gZ3N1YiggIiAuKiQiLCAiIiwgZWJpcmRfc3BlY2llc19uYW1lKSkgJT4lCiAgZHBseXI6OnNlbGVjdChmYW1pbHkpICU+JQogIGRpc3RpbmN0KCkgJT4lCiAgYXJyYW5nZSgpCmBgYAoKb2Ygd2hpY2ggdXJiYW4KYGBge3J9CmNvbW11bml0aWVzICU+JSAKICBmaWx0ZXIocmVsYXRpdmVfYWJ1bmRhbmNlX3Byb3h5ID4gMCkgJT4lCiAgbXV0YXRlKGZhbWlseSA9IGdzdWIoICIgLiokIiwgIiIsIGViaXJkX3NwZWNpZXNfbmFtZSkpICU+JQogIGRwbHlyOjpzZWxlY3QoZmFtaWx5KSAlPiUKICBkaXN0aW5jdCgpICU+JQogIGFycmFuZ2UoKQpgYGAKCiMgU3VtbWFyeSBtZXRyaWNzIGJ5IGludHJvZHVjZWQgc3BlY2llcwpgYGB7cn0KY29tbXVuaXRpZXMgPSByZWFkX2NzdihmaWxlbmFtZShDT01NVU5JVFlfT1VUUFVUX0RJUiwgJ2NvbW11bml0aWVzX2Zvcl9hbmFseXNpcy5jc3YnKSkKY2l0eV9pbnRyb2R1Y2VkX3NwZWNpZXMgPSBjb21tdW5pdGllcyAlPiUgZ3JvdXBfYnkoY2l0eV9pZCkgJT4lIHN1bW1hcmlzZShudW1iZXJfb2Zfc3BlY2llcyA9IG4oKSkgJT4lIGxlZnRfam9pbigKICBjb21tdW5pdGllcyAlPiUgZ3JvdXBfYnkoY2l0eV9pZCkgJT4lIGZpbHRlcihvcmlnaW4gPT0gJ0ludHJvZHVjZWQnKSAlPiUgc3VtbWFyaXNlKG51bWJlcl9vZl9pbnRyb2R1Y2VkX3NwZWNpZXMgPSBuKCkpCikgJT4lIHJlcGxhY2VfbmEobGlzdChudW1iZXJfb2ZfaW50cm9kdWNlZF9zcGVjaWVzID0gMCkpCgpjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMgPSBsZWZ0X2pvaW4oY29tbXVuaXR5X2RhdGEsIGNpdHlfaW50cm9kdWNlZF9zcGVjaWVzKQpjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMkaGFzX2ludHJvZHVjZWRfc3BlY2llcyA9IGNvbW11bml0eV9kYXRhX3dpdGhfaW50cm9kdWN0aW9ucyRudW1iZXJfb2ZfaW50cm9kdWNlZF9zcGVjaWVzID4gMApjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMKYGBgCgpgYGB7cn0KY29tbXVuaXRpZXMgJT4lIAogIGZpbHRlcihvcmlnaW4gPT0gJ0ludHJvZHVjZWQnKSAlPiUKICBkcGx5cjo6c2VsZWN0KGViaXJkX3NwZWNpZXNfbmFtZSkgJT4lCiAgZ3JvdXBfYnkoZWJpcmRfc3BlY2llc19uYW1lKSAlPiUKICBzdW1tYXJpc2UodG90YWxfY2l0aWVzID0gbigpKSAlPiUKICBhcnJhbmdlKGRlc2ModG90YWxfY2l0aWVzKSkKYGBgCgpgYGB7cn0KY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zWyxjKCdtbnRkX3N0YW5kYXJkJywgJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXMnKV0KYGBgCgpgYGB7cn0KY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zICU+JSBncm91cF9ieShoYXNfaW50cm9kdWNlZF9zcGVjaWVzKSAlPiUgc3VtbWFyaXNlKAogIHRvdGFsX2NpdGllcyA9IG4oKSwgCiAgCiAgbWVhbl9tbnRkX3N0ZCA9IG1lYW4obW50ZF9zdGFuZGFyZCwgbmEucm0gPSBUKSwKICBtZWRpYW5fbW50ZF9zdGQgPSBtZWRpYW4obW50ZF9zdGFuZGFyZCwgbmEucm0gPSBUKSwKICBzZF9tbnRkX3N0ZCA9IHNkKG1udGRfc3RhbmRhcmQsIG5hLnJtID0gVCksCiAgCiAgbWVhbl9tYXNzX2ZkaXZfc3RkID0gbWVhbihtYXNzX2ZkaXZfc3RhbmRhcmQsIG5hLnJtID0gVCksCiAgbWVkaWFuX21hc3NfZmRpdl9zdGQgPSBtZWRpYW4obWFzc19mZGl2X3N0YW5kYXJkLCBuYS5ybSA9IFQpLAogIHNkX21hc3NfZmRpdl9zdGQgPSBzZChtYXNzX2ZkaXZfc3RhbmRhcmQsIG5hLnJtID0gVCksCiAgCiAgbWVhbl9nYXBlX3dpZHRoX2ZkaXZfc3RkID0gbWVhbihiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQsIG5hLnJtID0gVCksCiAgbWVkaWFuX2dhcGVfd2lkdGhfZmRpdl9zdGQgPSBtZWRpYW4oYmVha193aWR0aF9mZGl2X3N0YW5kYXJkLCBuYS5ybSA9IFQpLAogIHNkX2dhcGVfd2lkdGhfZmRpdl9zdGQgPSBzZChiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQsIG5hLnJtID0gVCksCiAgCiAgbWVhbl9oYW5kd2luZ19pbmRleF9mZGl2X3N0ZCA9IG1lYW4oaHdpX2ZkaXZfc3RhbmRhcmQsIG5hLnJtID0gVCksCiAgbWVkaWFuX2hhbmR3aW5nX2luZGV4X2ZkaXZfc3RkID0gbWVkaWFuKGh3aV9mZGl2X3N0YW5kYXJkLCBuYS5ybSA9IFQpLAogIHNkX2hhbmR3aW5nX2luZGV4X2ZkaXZfc3RkID0gc2QoaHdpX2ZkaXZfc3RhbmRhcmQsIG5hLnJtID0gVCkKKQpgYGAKCiMjIE1OVEQKYGBge3J9CmdncGxvdChjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMsIGFlcyh4ID0gaGFzX2ludHJvZHVjZWRfc3BlY2llcywgeSA9IG1udGRfc3RhbmRhcmQpKSArIGdlb21fYm94cGxvdCgpCmBgYApgYGB7cn0KZ2dwbG90KGNvbW11bml0eV9kYXRhX3dpdGhfaW50cm9kdWN0aW9ucywgYWVzKHggPSBoYXNfaW50cm9kdWNlZF9zcGVjaWVzLCB5ID0gbW50ZF9ub3JtYWwpKSArIGdlb21fYm94cGxvdCgpCmBgYAoKYGBge3J9CndpbGNveC50ZXN0KG1udGRfc3RhbmRhcmQgfiBoYXNfaW50cm9kdWNlZF9zcGVjaWVzLCBjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMsIG5hLmFjdGlvbiA9ICduYS5vbWl0JykKYGBgCgpUaGVyZSBpcyBhIHNpZ25pZmljYW50IGRpZmZlcmVuY2UgYmV0d2VlbiB0aGUgcmVzcG9uc2Ugb2YgY2l0aWVzIHdpdGggaW50cm9kdWNlZCBzcGVjaWVzICgwLjUzwrEwLjI3KSBhbmQgdGhvc2Ugd2l0aG91dCAoMC40N8KxMC4xOSkgKHAtdmFsdWUgPSAwLjAyKS4KCgpgYGB7cn0Kd2lsY294LnRlc3QobW50ZF9ub3JtYWwgfiBoYXNfaW50cm9kdWNlZF9zcGVjaWVzLCBjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMsIG5hLmFjdGlvbiA9ICduYS5vbWl0JykKYGBgCgojIyBNYXNzIEZEaXYKYGBge3J9CmdncGxvdChjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMsIGFlcyh4ID0gaGFzX2ludHJvZHVjZWRfc3BlY2llcywgeSA9IG1hc3NfZmRpdl9zdGFuZGFyZCkpICsgZ2VvbV9ib3hwbG90KCkKYGBgCgpgYGB7cn0KZ2dwbG90KGNvbW11bml0eV9kYXRhX3dpdGhfaW50cm9kdWN0aW9ucywgYWVzKHggPSBoYXNfaW50cm9kdWNlZF9zcGVjaWVzLCB5ID0gbWFzc19mZGl2X25vcm1hbCkpICsgZ2VvbV9ib3hwbG90KCkKYGBgCmBgYHtyfQp3aWxjb3gudGVzdChtYXNzX2ZkaXZfc3RhbmRhcmQgfiBoYXNfaW50cm9kdWNlZF9zcGVjaWVzLCBjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMsIG5hLmFjdGlvbiA9ICduYS5vbWl0JykKYGBgClRoZXJlIGlzIGEgc2lnbmlmaWNhbnQgZGlmZmVyZW5jZSBiZXR3ZWVuIHRoZSByZXNwb25zZSBvZiBjaXRpZXMgd2l0aCBpbnRyb2R1Y2VkIHNwZWNpZXMgKDAuNTfCsTAuMjcpIGFuZCB0aG9zZSB3aXRob3V0ICgwLjczwrEwLjI0KSAocCA8IDAuMDAwMSkKCmBgYHtyfQp3aWxjb3gudGVzdChtYXNzX2ZkaXZfbm9ybWFsIH4gaGFzX2ludHJvZHVjZWRfc3BlY2llcywgY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zLCBuYS5hY3Rpb24gPSAnbmEub21pdCcpCmBgYAoKIyMgQmVhayBHYXBlIEZEaXYKYGBge3J9CmdncGxvdChjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMsIGFlcyh4ID0gaGFzX2ludHJvZHVjZWRfc3BlY2llcywgeSA9IGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCkpICsgZ2VvbV9ib3hwbG90KCkKYGBgCgpgYGB7cn0KZ2dwbG90KGNvbW11bml0eV9kYXRhX3dpdGhfaW50cm9kdWN0aW9ucywgYWVzKHggPSBoYXNfaW50cm9kdWNlZF9zcGVjaWVzLCB5ID0gYmVha193aWR0aF9mZGl2X25vcm1hbCkpICsgZ2VvbV9ib3hwbG90KCkKYGBgCmBgYHtyfQp3aWxjb3gudGVzdChiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQgfiBoYXNfaW50cm9kdWNlZF9zcGVjaWVzLCBjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMsIG5hLmFjdGlvbiA9ICduYS5vbWl0JykKYGBgClRoZXJlIGlzIE5PVCBhIHNpZ25pZmljYW50IGRpZmZlcmVuY2UgYmV0d2VlbiB0aGUgcmVzcG9uc2Ugb2YgY2l0aWVzIHdpdGggaW50cm9kdWNlZCBzcGVjaWVzICgwLjYxwrEwLjMwKSBhbmQgdGhvc2Ugd2l0aG91dCAoMC41NsKxMC4yNykKCmBgYHtyfQp3aWxjb3gudGVzdChiZWFrX3dpZHRoX2ZkaXZfbm9ybWFsIH4gaGFzX2ludHJvZHVjZWRfc3BlY2llcywgY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zLCBuYS5hY3Rpb24gPSAnbmEub21pdCcpCmBgYAoKIyMgSFdJIEZEaXYKYGBge3J9CmdncGxvdChjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMsIGFlcyh4ID0gaGFzX2ludHJvZHVjZWRfc3BlY2llcywgeSA9IGh3aV9mZGl2X3N0YW5kYXJkKSkgKyBnZW9tX2JveHBsb3QoKQpgYGAKCmBgYHtyfQpnZ3Bsb3QoY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zLCBhZXMoeCA9IGhhc19pbnRyb2R1Y2VkX3NwZWNpZXMsIHkgPSBod2lfZmRpdl9ub3JtYWwpKSArIGdlb21fYm94cGxvdCgpCmBgYAoKYGBge3J9CndpbGNveC50ZXN0KGh3aV9mZGl2X3N0YW5kYXJkIH4gaGFzX2ludHJvZHVjZWRfc3BlY2llcywgY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zLCBuYS5hY3Rpb24gPSAnbmEub21pdCcpCmBgYApUaGVyZSBpcyBhIHNpZ25pZmljYW50IGRpZmZlcmVuY2UgYmV0d2VlbiB0aGUgcmVzcG9uc2Ugb2YgY2l0aWVzIHdpdGggaW50cm9kdWNlZCBzcGVjaWVzICgwLjQ5wrEwLjMwKSBhbmQgdGhvc2Ugd2l0aG91dCAoMC43OcKxMC4yMSkgKHAgPCAwLjAwMDEpCgpgYGB7cn0Kd2lsY294LnRlc3QoaHdpX2ZkaXZfbm9ybWFsIH4gaGFzX2ludHJvZHVjZWRfc3BlY2llcywgY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zLCBuYS5hY3Rpb24gPSAnbmEub21pdCcpCmBgYAoKIyMgV2hhdCBwcm9wb3J0aW9uIG9mIGNpdGllcyBpbiBlYWNoIHJlYWxtIGhhdmUgaW50cm9kdWNlZCBzcGVjaWVzCmBgYHtyfQpjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMgJT4lIGxlZnRfam9pbihjaXR5X3RvX3JlYWxtKSAlPiUKICBncm91cF9ieShjb3JlX3JlYWxtKSAlPiUKICBzdW1tYXJpc2UoCiAgICB0b3RhbF9jaXRpZXMgPSBuKCksIAogICAgdG90YWxfY2l0aWVzX3dpdGhfaW50cm9kdWNlZCA9IHN1bShoYXNfaW50cm9kdWNlZF9zcGVjaWVzKSwgCiAgICB0b3RhbF9jaXRpZXNfd2l0aG91dF9pbnRyb2R1Y2VkID0gbigpIC0gc3VtKGhhc19pbnRyb2R1Y2VkX3NwZWNpZXMpKSAlPiUKICBhcnJhbmdlKGNvcmVfcmVhbG0pCmBgYAoKIyMgQXJlIGFueSBpbnRyb2R1Y2VkIHNwZWNpZXMgbm90IGFsc28gcHJlc2VudCBpbiBhIGNpdHk/CmBgYHtyfQpjb21tdW5pdGllcyAlPiUgCiAgZmlsdGVyKG9yaWdpbiA9PSAnSW50cm9kdWNlZCcpICU+JSAKICBmaWx0ZXIocmVsYXRpdmVfYWJ1bmRhbmNlX3Byb3h5IDwgMC4xKQpgYGAKCiMjIFdoYXQncyB0aGUgYXZlcmFnZSByZWxhdGl2ZSBhYnVuZGFuY2Ugb2YgaW50cm9kdWNlZCBzcGVjaWVzIGNvbXBhcmVkIHRvIG5hdGl2ZQpgYGB7cn0KY29tbXVuaXRpZXMgJT4lIAogIGdyb3VwX2J5KG9yaWdpbikgJT4lIAogIHN1bW1hcmlzZShhdmVyYWdlX3JlbGF0aXZlX2FidW5kYW5jZSA9IG1lYW4ocmVsYXRpdmVfYWJ1bmRhbmNlX3Byb3h5KSkKYGBgCgpgYGB7cn0KY29tbXVuaXRpZXMgJT4lIAogIGdyb3VwX2J5KG9yaWdpbikgJT4lIAogIGZpbHRlcihyZWxhdGl2ZV9hYnVuZGFuY2VfcHJveHkgPiAwKSAlPiUKICBzdW1tYXJpc2UoYXZlcmFnZV9yZWxhdGl2ZV9hYnVuZGFuY2UgPSBtZWFuKHJlbGF0aXZlX2FidW5kYW5jZV9wcm94eSkpCmBgYAoKYGBge3J9CmNvbW11bml0aWVzICU+JSAKICBncm91cF9ieShvcmlnaW4pICU+JSAKICBzdW1tYXJpc2UoYXZlcmFnZV9yZWxhdGl2ZV9hYnVuZGFuY2UgPSBtZWFuKHJlbGF0aXZlX2FidW5kYW5jZV9wcm94eSkpCmBgYAoKIyBDcmVhdGUgYW5hbHlzaXMgZGF0YSBmcmFtZSBmb3IgbW9kZWxsaW5nCmBgYHtyfQpnZW9ncmFwaHkgPSByZWFkX2NzdihmaWxlbmFtZShDSVRZX0RBVEFfT1VUUFVUX0RJUiwgJ2dlb2dyYXBoeS5jc3YnKSkKbmFtZXMoZ2VvZ3JhcGh5KQpgYGAKCmBgYHtyfQphbmFseXNpc19kYXRhID0gY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbVssYygnY2l0eV9pZCcsIAogICAgICAgJ21udGRfc3RhbmRhcmQnLCAnbWFzc19mZGl2X3N0YW5kYXJkJywgJ2JlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCcsICdod2lfZmRpdl9zdGFuZGFyZCcsCiAgICAgICAnbW50ZF9ub3JtYWwnLCAnbWFzc19mZGl2X25vcm1hbCcsICdiZWFrX3dpZHRoX2ZkaXZfbm9ybWFsJywgJ2h3aV9mZGl2X25vcm1hbCcsCiAgICAgICAnY29yZV9yZWFsbScpXSAlPiUgCiAgbGVmdF9qb2luKGNpdHlfcG9pbnRzWyxjKCdjaXR5X2lkJywgJ2xhdGl0dWRlJywgJ2xvbmdpdHVkZScpXSkgJT4lCiAgbGVmdF9qb2luKGNvbW11bml0eV9kYXRhX3dpdGhfaW50cm9kdWN0aW9uc1ssYygnY2l0eV9pZCcsICdoYXNfaW50cm9kdWNlZF9zcGVjaWVzJyldKSAlPiUKICBsZWZ0X2pvaW4oZ2VvZ3JhcGh5KSAlPiUKICBsZWZ0X2pvaW4oc3BhdGlhbF92YXIpCgphbmFseXNpc19kYXRhJGFic19sYXRpdHVkZSA9IGFicyhhbmFseXNpc19kYXRhJGxhdGl0dWRlKQphbmFseXNpc19kYXRhJGNvcmVfcmVhbG0gPSBmYWN0b3IoYW5hbHlzaXNfZGF0YSRjb3JlX3JlYWxtLCBsZXZlbHMgPSBjKCdQYWxlYXJjdGljJywgJ05lYXJjdGljJywgJ05lb3Ryb3BpYycsICdBZnJvdHJvcGljJywgJ0luZG9tYWxheWFuJywgJ0F1c3RyYWxhc2lhJywgJ09jZWFuaWEnKSkKYW5hbHlzaXNfZGF0YSRoYXNfaW50cm9kdWNlZF9zcGVjaWVzID0gZmFjdG9yKGFuYWx5c2lzX2RhdGEkaGFzX2ludHJvZHVjZWRfc3BlY2llcywgbGV2ZWwgPSBjKCdGQUxTRScsICdUUlVFJyksIGxhYmVscyA9IGMoJ05vIGludHJvZHVjZWQgc3BlY2llcycsICdJbnRyb2R1Y2VkIHNwZWNpZXMnKSkKYGBgCgpgYGB7cn0KbW9kZWxfZGF0YSA9IGZ1bmN0aW9uKGRmLCBkZXBlbmRhbnRfdmFyKSB7CiAgZGZbLGMoZGVwZW5kYW50X3ZhciwgJ2NvcmVfcmVhbG0nLCAnYWJzX2xhdGl0dWRlJywgJ2xvbmdpdHVkZScsICdoYXNfaW50cm9kdWNlZF9zcGVjaWVzJywgJ2NpdHlfYXZnX25kdmknLCAnY2l0eV9hdmdfZWxldmF0aW9uJywgJ2NpdHlfYXZnX3RlbXAnLCAnY2l0eV9hdmdfbWluX21vbnRobHlfdGVtcCcsICdjaXR5X2F2Z19tYXhfbW9udGhseV90ZW1wJywgJ2NpdHlfYXZnX21vbnRobHlfdGVtcCcsICdjaXR5X2F2Z19yYWluZmFsbCcsICdjaXR5X2F2Z19tYXhfbW9udGhseV9yYWluZmFsbCcsICdjaXR5X2F2Z19taW5fbW9udGhseV9yYWluZmFsbCcsICdjaXR5X2F2Z19zb2lsX21vaXN0dXJlJywgJ2NpdHlfbWF4X2VsZXYnLCAnY2l0eV9taW5fZWxldicsICdjaXR5X2VsZXZfcmFuZ2UnLCAncmVnaW9uXzIwa21fYXZnX25kdmknLCAncmVnaW9uXzIwa21fYXZnX2VsZXZhdGlvbicsICdyZWdpb25fMjBrbV9hdmdfc29pbF9tb2lzdHVyZScsICdyZWdpb25fMjBrbV9tYXhfZWxldicsICdyZWdpb25fMjBrbV9taW5fZWxldicsICdyZWdpb25fMjBrbV9lbGV2X3JhbmdlJywgJ3JlZ2lvbl81MGttX2F2Z19uZHZpJywgJ3JlZ2lvbl81MGttX2F2Z19lbGV2YXRpb24nLCAncmVnaW9uXzUwa21fYXZnX3NvaWxfbW9pc3R1cmUnLCAncmVnaW9uXzUwa21fbWF4X2VsZXYnLCAncmVnaW9uXzUwa21fbWluX2VsZXYnLCAncmVnaW9uXzUwa21fZWxldl9yYW5nZScpXQp9Cm1vZGVsX2RhdGEoYW5hbHlzaXNfZGF0YSwgJ21udGRfc3RhbmRhcmQnKQptb2RlbF9kYXRhKGFuYWx5c2lzX2RhdGEsICdtbnRkX25vcm1hbCcpCmBgYAoKYGBge3J9Cm5hbWVzKGFuYWx5c2lzX2RhdGEpCmBgYAoKIyMgTk1EUyBTcGF0aWFsIEhlbHBlcnMKYGBge3J9CmFuYWx5c2lzX2RhdGFfbm1kc19jb29yZHMgPSBhbmFseXNpc19kYXRhWyxjKCdOTURTMScsICdOTURTMicpXQpjb29yZGluYXRlcyhhbmFseXNpc19kYXRhX25tZHNfY29vcmRzKSAgPSB+IE5NRFMxICsgTk1EUzIKCmFuYWx5c2lzX2RhdGFfbm1kc19uZWFybmVpZ2ggPC0ga25lYXJuZWlnaChhbmFseXNpc19kYXRhX25tZHNfY29vcmRzKQphbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycyA8LSBrbm4ybmIoYW5hbHlzaXNfZGF0YV9ubWRzX25lYXJuZWlnaCkKYGBgCgojIyMgUG9seWdvbnMgYXJvdW5kIHJlYWxtcyBpbiBOTURTIHBsb3QKYGBge3J9CmNpdGllc190b19yZWFsbXNfbm1kcyA9IHJlYWRfY3N2KGZpbGVuYW1lKENJVFlfREFUQV9PVVRQVVRfRElSLCAncmVhbG1zLmNzdicpKSAlPiUgbGVmdF9qb2luKGFuYWx5c2lzX2RhdGEpICU+JSBmaWx0ZXIoIWlzLm5hKE5NRFMxKSkKdW5pcXVlKGNpdGllc190b19yZWFsbXNfbm1kcyRjb3JlX3JlYWxtKQpyZWFsbV9ubWRzX25lYXJ0aWNfcG9seWdvbiA9IGNpdGllc190b19yZWFsbXNfbm1kcyAlPiUgZmlsdGVyKGNvcmVfcmVhbG0gPT0gJ05lYXJjdGljJykgJT4lIHNsaWNlKGNodWxsKE5NRFMxLCBOTURTMikpCnJlYWxtX25tZHNfbmVvdHJvcGljX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX25tZHMgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdOZW90cm9waWMnKSAlPiUgc2xpY2UoY2h1bGwoTk1EUzEsIE5NRFMyKSkKcmVhbG1fbm1kc19wYWxlYXJjdGljX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX25tZHMgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdQYWxlYXJjdGljJykgJT4lIHNsaWNlKGNodWxsKE5NRFMxLCBOTURTMikpCnJlYWxtX25tZHNfYWZyb3Ryb3BpY19wb2x5Z29uID0gY2l0aWVzX3RvX3JlYWxtc19ubWRzICU+JSBmaWx0ZXIoY29yZV9yZWFsbSA9PSAnQWZyb3Ryb3BpYycpICU+JSBzbGljZShjaHVsbChOTURTMSwgTk1EUzIpKQpyZWFsbV9ubWRzX2luZG9tYWxheWFuX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX25tZHMgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdJbmRvbWFsYXlhbicpICU+JSBzbGljZShjaHVsbChOTURTMSwgTk1EUzIpKQpyZWFsbV9ubWRzX2F1c3RyYWxhc2lhX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX25tZHMgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdBdXN0cmFsYXNpYScpICU+JSBzbGljZShjaHVsbChOTURTMSwgTk1EUzIpKQoKcG9seWdvbl9saW5lX3R5cGUgPSAnZGFzaGVkJwpwb2x5Z29uX2xpbmV3aWR0aCA9IDAuNAoKd2l0aF9yZWFsbXNfbm1kcyA9IGZ1bmN0aW9uKGcpIHsKICBnICsgCiAgICBnZW9tX3BvbHlnb24oZGF0YSA9IHJlYWxtX25tZHNfbmVhcnRpY19wb2x5Z29uLCBsaW5ld2lkdGggPSBwb2x5Z29uX2xpbmV3aWR0aCwgbGluZXR5cGUgPSBwb2x5Z29uX2xpbmVfdHlwZSwgYWxwaGEgPSAwKSArCiAgICBnZW9tX3BvbHlnb24oZGF0YSA9IHJlYWxtX25tZHNfbmVvdHJvcGljX3BvbHlnb24sIGxpbmV3aWR0aCA9IHBvbHlnb25fbGluZXdpZHRoLCBsaW5ldHlwZSA9IHBvbHlnb25fbGluZV90eXBlLCBhbHBoYSA9IDApICsKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbm1kc19wYWxlYXJjdGljX3BvbHlnb24sIGxpbmV3aWR0aCA9IHBvbHlnb25fbGluZXdpZHRoLCBsaW5ldHlwZSA9IHBvbHlnb25fbGluZV90eXBlLCBhbHBoYSA9IDApICsKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbm1kc19hZnJvdHJvcGljX3BvbHlnb24sIGxpbmV3aWR0aCA9IHBvbHlnb25fbGluZXdpZHRoLCBsaW5ldHlwZSA9IHBvbHlnb25fbGluZV90eXBlLCBhbHBoYSA9IDApICsKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbm1kc19pbmRvbWFsYXlhbl9wb2x5Z29uLCBsaW5ld2lkdGggPSBwb2x5Z29uX2xpbmV3aWR0aCwgbGluZXR5cGUgPSBwb2x5Z29uX2xpbmVfdHlwZSwgYWxwaGEgPSAwKSArCiAgICBnZW9tX3BvbHlnb24oZGF0YSA9IHJlYWxtX25tZHNfYXVzdHJhbGFzaWFfcG9seWdvbiwgbGluZXdpZHRoID0gcG9seWdvbl9saW5ld2lkdGgsIGxpbmV0eXBlID0gcG9seWdvbl9saW5lX3R5cGUsIGFscGhhID0gMCkKfQpgYGAKCiMjIExhdCBMb25nIFNwYXRpYWwgSGVscGVycwpgYGB7cn0KYW5hbHlzaXNfZGF0YV9sYXRsb25nX2Nvb3JkcyA9IGFuYWx5c2lzX2RhdGFbLGMoJ2xvbmdpdHVkZScsICdsYXRpdHVkZScpXQpjb29yZGluYXRlcyhhbmFseXNpc19kYXRhX2xhdGxvbmdfY29vcmRzKSAgPSB+IGxvbmdpdHVkZSArIGxhdGl0dWRlCgphbmFseXNpc19kYXRhX2Nvb3Jkc19uZWFybmVpZ2ggPC0ga25lYXJuZWlnaChhbmFseXNpc19kYXRhX2xhdGxvbmdfY29vcmRzLCBsb25nbGF0ID0gVFJVRSkKYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzIDwtIGtubjJuYihhbmFseXNpc19kYXRhX2Nvb3Jkc19uZWFybmVpZ2gpCmBgYAoKIyMjIFBvbHlnb25zIGFyb3VuZCByZWFsbXMgaW4gbGF0IGxvbmcgcGxvdApgYGB7cn0KY2l0aWVzX3RvX3JlYWxtc19sYXRsb25nID0gcmVhZF9jc3YoZmlsZW5hbWUoQ0lUWV9EQVRBX09VVFBVVF9ESVIsICdyZWFsbXMuY3N2JykpICU+JSBsZWZ0X2pvaW4oYW5hbHlzaXNfZGF0YSkgJT4lIGZpbHRlcighaXMubmEobGF0aXR1ZGUpKQp1bmlxdWUoY2l0aWVzX3RvX3JlYWxtc19sYXRsb25nJGNvcmVfcmVhbG0pCnJlYWxtX2xhdGxvbmdfbmVhcnRpY19wb2x5Z29uID0gY2l0aWVzX3RvX3JlYWxtc19sYXRsb25nICU+JSBmaWx0ZXIoY29yZV9yZWFsbSA9PSAnTmVhcmN0aWMnKSAlPiUgc2xpY2UoY2h1bGwobGF0aXR1ZGUsIGxvbmdpdHVkZSkpCnJlYWxtX2xhdGxvbmdfbmVvdHJvcGljX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX2xhdGxvbmcgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdOZW90cm9waWMnKSAlPiUgc2xpY2UoY2h1bGwobGF0aXR1ZGUsIGxvbmdpdHVkZSkpCnJlYWxtX2xhdGxvbmdfcGFsZWFyY3RpY19wb2x5Z29uID0gY2l0aWVzX3RvX3JlYWxtc19sYXRsb25nICU+JSBmaWx0ZXIoY29yZV9yZWFsbSA9PSAnUGFsZWFyY3RpYycpICU+JSBzbGljZShjaHVsbChsYXRpdHVkZSwgbG9uZ2l0dWRlKSkKcmVhbG1fbGF0bG9uZ19hZnJvdHJvcGljX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX2xhdGxvbmcgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdBZnJvdHJvcGljJykgJT4lIHNsaWNlKGNodWxsKGxhdGl0dWRlLCBsb25naXR1ZGUpKQpyZWFsbV9sYXRsb25nX2luZG9tYWxheWFuX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX2xhdGxvbmcgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdJbmRvbWFsYXlhbicpICU+JSBzbGljZShjaHVsbChsYXRpdHVkZSwgbG9uZ2l0dWRlKSkKcmVhbG1fbGF0bG9uZ19hdXN0cmFsYXNpYV9wb2x5Z29uID0gY2l0aWVzX3RvX3JlYWxtc19sYXRsb25nICU+JSBmaWx0ZXIoY29yZV9yZWFsbSA9PSAnQXVzdHJhbGFzaWEnKSAlPiUgc2xpY2UoY2h1bGwobGF0aXR1ZGUsIGxvbmdpdHVkZSkpCgp3aXRoX3JlYWxtc19sYXRsb25nID0gZnVuY3Rpb24oZykgewogIGcgKyAKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbGF0bG9uZ19uZWFydGljX3BvbHlnb24sIGxpbmV3aWR0aCA9IHBvbHlnb25fbGluZXdpZHRoLCBsaW5ldHlwZSA9IHBvbHlnb25fbGluZV90eXBlLCBhbHBoYSA9IDApICsKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbGF0bG9uZ19uZW90cm9waWNfcG9seWdvbiwgbGluZXdpZHRoID0gcG9seWdvbl9saW5ld2lkdGgsIGxpbmV0eXBlID0gcG9seWdvbl9saW5lX3R5cGUsIGFscGhhID0gMCkgKwogICAgZ2VvbV9wb2x5Z29uKGRhdGEgPSByZWFsbV9sYXRsb25nX3BhbGVhcmN0aWNfcG9seWdvbiwgbGluZXdpZHRoID0gcG9seWdvbl9saW5ld2lkdGgsIGxpbmV0eXBlID0gcG9seWdvbl9saW5lX3R5cGUsIGFscGhhID0gMCkgKwogICAgZ2VvbV9wb2x5Z29uKGRhdGEgPSByZWFsbV9sYXRsb25nX2Fmcm90cm9waWNfcG9seWdvbiwgbGluZXdpZHRoID0gcG9seWdvbl9saW5ld2lkdGgsIGxpbmV0eXBlID0gcG9seWdvbl9saW5lX3R5cGUsIGFscGhhID0gMCkgKwogICAgZ2VvbV9wb2x5Z29uKGRhdGEgPSByZWFsbV9sYXRsb25nX2luZG9tYWxheWFuX3BvbHlnb24sIGxpbmV3aWR0aCA9IHBvbHlnb25fbGluZXdpZHRoLCBsaW5ldHlwZSA9IHBvbHlnb25fbGluZV90eXBlLCBhbHBoYSA9IDApICsKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbGF0bG9uZ19hdXN0cmFsYXNpYV9wb2x5Z29uLCBsaW5ld2lkdGggPSBwb2x5Z29uX2xpbmV3aWR0aCwgbGluZXR5cGUgPSBwb2x5Z29uX2xpbmVfdHlwZSwgYWxwaGEgPSAwKQp9CmBgYAoKIyBDaGVjayBmb3Igc3BhdGlhbCBhdXRvY29ycmVsYXRpb24KCiMjIE1OVEQKCiMjIyBMYXQvTG9uZwpgYGB7cn0Kd2l0aF9yZWFsbXNfbGF0bG9uZyhnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBsYXRpdHVkZSwgeSA9IGxvbmdpdHVkZSwgY29sb3VyID0gbW50ZF9zdGFuZGFyZCkpICsgZ2VvbV9wb2ludCgpICsgc3RhbmRhcmRpc2VkX2NvbG91cnNfc2NhbGUgKyBsYWJzKGNvbG91ciA9ICJTdGFuZGFyZGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJG1udGRfc3RhbmRhcmQsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbmVpZ2hib3VycykpCmBgYApgYGB7cn0Kd2l0aF9yZWFsbXNfbGF0bG9uZyhnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBsYXRpdHVkZSwgeSA9IGxvbmdpdHVkZSwgY29sb3VyID0gbW50ZF9ub3JtYWwpKSArIGdlb21fcG9pbnQoKSArIG5vcm1hbGlzZWRfY29sb3Vyc19zY2FsZSArIGxhYnMoY29sb3VyID0gIk5vcm1hbGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJG1udGRfbm9ybWFsLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25laWdoYm91cnMpKQpgYGAKCiMjIyBOTURTCmBgYHtyfQp3aXRoX3JlYWxtc19ubWRzKGdncGxvdChhbmFseXNpc19kYXRhLCBhZXMoeCA9IE5NRFMxLCB5ID0gTk1EUzIsIGNvbG91ciA9IG1udGRfc3RhbmRhcmQpKSArIGdlb21fcG9pbnQoKSArIHN0YW5kYXJkaXNlZF9jb2xvdXJzX3NjYWxlICsgbGFicyhjb2xvdXIgPSAiU3RhbmRhcmRpc2VkIHJlc3BvbnNlIikpCmBgYAoKYGBge3J9Cm1vcmFuLnRlc3QoYW5hbHlzaXNfZGF0YSRtbnRkX3N0YW5kYXJkLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CndpdGhfcmVhbG1zX25tZHMoZ2dwbG90KGFuYWx5c2lzX2RhdGEsIGFlcyh4ID0gTk1EUzEsIHkgPSBOTURTMiwgY29sb3VyID0gbW50ZF9ub3JtYWwpKSArIGdlb21fcG9pbnQoKSArIHN0YW5kYXJkaXNlZF9jb2xvdXJzX3NjYWxlICsgbGFicyhjb2xvdXIgPSAiTm9ybWFsaXNlZCByZXNwb25zZSIpKQpgYGAKCmBgYHtyfQptb3Jhbi50ZXN0KGFuYWx5c2lzX2RhdGEkbW50ZF9ub3JtYWwsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbm1kc19uZWlnaGJvdXJzKSkKYGBgCgojIyBGRGl2IEJlYWsgV2lkdGgKCiMjIyBMYXQvTG9uZwpgYGB7cn0Kd2l0aF9yZWFsbXNfbGF0bG9uZyhnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBsYXRpdHVkZSwgeSA9IGxvbmdpdHVkZSwgY29sb3VyID0gYmVha193aWR0aF9mZGl2X3N0YW5kYXJkKSkgKyBnZW9tX3BvaW50KCkgKyBzdGFuZGFyZGlzZWRfY29sb3Vyc19zY2FsZSArIGxhYnMoY29sb3VyID0gIlN0YW5kYXJkaXNlZCByZXNwb25zZSIpKQpgYGAKCmBgYHtyfQptb3Jhbi50ZXN0KGFuYWx5c2lzX2RhdGEkYmVha193aWR0aF9mZGl2X3N0YW5kYXJkLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25laWdoYm91cnMpKQpgYGAKCmBgYHtyfQp3aXRoX3JlYWxtc19sYXRsb25nKGdncGxvdChhbmFseXNpc19kYXRhLCBhZXMoeCA9IGxhdGl0dWRlLCB5ID0gbG9uZ2l0dWRlLCBjb2xvdXIgPSBiZWFrX3dpZHRoX2ZkaXZfbm9ybWFsKSkgKyBnZW9tX3BvaW50KCkgKyBzdGFuZGFyZGlzZWRfY29sb3Vyc19zY2FsZSArIGxhYnMoY29sb3VyID0gIk5vcm1hbGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJGJlYWtfd2lkdGhfZmRpdl9ub3JtYWwsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbmVpZ2hib3VycykpCmBgYAoKIyMjIE5NRFMKYGBge3J9CndpdGhfcmVhbG1zX25tZHMoZ2dwbG90KGFuYWx5c2lzX2RhdGEsIGFlcyh4ID0gTk1EUzEsIHkgPSBOTURTMiwgY29sb3VyID0gYmVha193aWR0aF9mZGl2X3N0YW5kYXJkKSkgKyBnZW9tX3BvaW50KCkgKyBzdGFuZGFyZGlzZWRfY29sb3Vyc19zY2FsZSArIGxhYnMoY29sb3VyID0gIlN0YW5kYXJkaXNlZCByZXNwb25zZSIpKQpgYGAKCmBgYHtyfQptb3Jhbi50ZXN0KGFuYWx5c2lzX2RhdGEkYmVha193aWR0aF9mZGl2X3N0YW5kYXJkLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CndpdGhfcmVhbG1zX25tZHMoZ2dwbG90KGFuYWx5c2lzX2RhdGEsIGFlcyh4ID0gTk1EUzEsIHkgPSBOTURTMiwgY29sb3VyID0gYmVha193aWR0aF9mZGl2X25vcm1hbCkpICsgZ2VvbV9wb2ludCgpICsgc3RhbmRhcmRpc2VkX2NvbG91cnNfc2NhbGUgKyBsYWJzKGNvbG91ciA9ICJOb3JtYWxpc2VkIHJlc3BvbnNlIikpCmBgYAoKYGBge3J9Cm1vcmFuLnRlc3QoYW5hbHlzaXNfZGF0YSRiZWFrX3dpZHRoX2ZkaXZfbm9ybWFsLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKIyMgRkRpdiBIV0kKCiMjIyBMYXQvTG9uZwpgYGB7cn0Kd2l0aF9yZWFsbXNfbGF0bG9uZyhnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBsYXRpdHVkZSwgeSA9IGxvbmdpdHVkZSwgY29sb3VyID0gaHdpX2ZkaXZfc3RhbmRhcmQpKSArIGdlb21fcG9pbnQoKSArIHN0YW5kYXJkaXNlZF9jb2xvdXJzX3NjYWxlICsgbGFicyhjb2xvdXIgPSAiU3RhbmRhcmRpc2VkIHJlc3BvbnNlIikpCmBgYAoKYGBge3J9Cm1vcmFuLnRlc3QoYW5hbHlzaXNfZGF0YSRod2lfZmRpdl9zdGFuZGFyZCwgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKYGBgCgpgYGB7cn0Kd2l0aF9yZWFsbXNfbGF0bG9uZyhnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBsYXRpdHVkZSwgeSA9IGxvbmdpdHVkZSwgY29sb3VyID0gaHdpX2ZkaXZfbm9ybWFsKSkgKyBnZW9tX3BvaW50KCkgKyBzdGFuZGFyZGlzZWRfY29sb3Vyc19zY2FsZSArIGxhYnMoY29sb3VyID0gIk5vcm1hbGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJGh3aV9mZGl2X25vcm1hbCwgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKYGBgCgojIyMgTk1EUwpgYGB7cn0Kd2l0aF9yZWFsbXNfbm1kcyhnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBOTURTMSwgeSA9IE5NRFMyLCBjb2xvdXIgPSBod2lfZmRpdl9zdGFuZGFyZCkpICsgZ2VvbV9wb2ludCgpICsgc3RhbmRhcmRpc2VkX2NvbG91cnNfc2NhbGUgKyBsYWJzKGNvbG91ciA9ICJTdGFuZGFyZGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJGh3aV9mZGl2X3N0YW5kYXJkLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CndpdGhfcmVhbG1zX25tZHMoZ2dwbG90KGFuYWx5c2lzX2RhdGEsIGFlcyh4ID0gTk1EUzEsIHkgPSBOTURTMiwgY29sb3VyID0gaHdpX2ZkaXZfbm9ybWFsKSkgKyBnZW9tX3BvaW50KCkgKyBzdGFuZGFyZGlzZWRfY29sb3Vyc19zY2FsZSArIGxhYnMoY29sb3VyID0gIk5vcm1hbGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJGh3aV9mZGl2X25vcm1hbCwgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9ubWRzX25laWdoYm91cnMpKQpgYGAKCiMjIEZEaXYgTWFzcwoKIyMjIExhdC9Mb25nCmBgYHtyfQp3aXRoX3JlYWxtc19sYXRsb25nKGdncGxvdChhbmFseXNpc19kYXRhLCBhZXMoeCA9IGxhdGl0dWRlLCB5ID0gbG9uZ2l0dWRlLCBjb2xvdXIgPSBtYXNzX2ZkaXZfc3RhbmRhcmQpKSArIGdlb21fcG9pbnQoKSArIHN0YW5kYXJkaXNlZF9jb2xvdXJzX3NjYWxlICsgbGFicyhjb2xvdXIgPSAiU3RhbmRhcmRpc2VkIHJlc3BvbnNlIikpCmBgYAoKYGBge3J9Cm1vcmFuLnRlc3QoYW5hbHlzaXNfZGF0YSRtYXNzX2ZkaXZfc3RhbmRhcmQsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CndpdGhfcmVhbG1zX2xhdGxvbmcoZ2dwbG90KGFuYWx5c2lzX2RhdGEsIGFlcyh4ID0gbGF0aXR1ZGUsIHkgPSBsb25naXR1ZGUsIGNvbG91ciA9IG1hc3NfZmRpdl9ub3JtYWwpKSArIGdlb21fcG9pbnQoKSArIHN0YW5kYXJkaXNlZF9jb2xvdXJzX3NjYWxlICsgbGFicyhjb2xvdXIgPSAiTm9ybWFsaXNlZCByZXNwb25zZSIpKQpgYGAKCmBgYHtyfQptb3Jhbi50ZXN0KGFuYWx5c2lzX2RhdGEkbWFzc19mZGl2X25vcm1hbCwgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKYGBgCiMjIyBOTURTCmBgYHtyfQp3aXRoX3JlYWxtc19ubWRzKGdncGxvdChhbmFseXNpc19kYXRhLCBhZXMoeCA9IE5NRFMxLCB5ID0gTk1EUzIsIGNvbG91ciA9IG1hc3NfZmRpdl9zdGFuZGFyZCkpICsgZ2VvbV9wb2ludCgpICsgc3RhbmRhcmRpc2VkX2NvbG91cnNfc2NhbGUgKyBsYWJzKGNvbG91ciA9ICJTdGFuZGFyZGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJG1hc3NfZmRpdl9zdGFuZGFyZCwgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9ubWRzX25laWdoYm91cnMpKQpgYGAKCmBgYHtyfQp3aXRoX3JlYWxtc19ubWRzKGdncGxvdChhbmFseXNpc19kYXRhLCBhZXMoeCA9IE5NRFMxLCB5ID0gTk1EUzIsIGNvbG91ciA9IG1hc3NfZmRpdl9ub3JtYWwpKSArIGdlb21fcG9pbnQoKSArIHN0YW5kYXJkaXNlZF9jb2xvdXJzX3NjYWxlICsgbGFicyhjb2xvdXIgPSAiTm9ybWFsaXNlZCByZXNwb25zZSIpKQpgYGAKCmBgYHtyfQptb3Jhbi50ZXN0KGFuYWx5c2lzX2RhdGEkbWFzc19mZGl2X25vcm1hbCwgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9ubWRzX25laWdoYm91cnMpKQpgYGAKCgojIEV4YW1pbmUgaW5kaXZpZHVhbCBtZXRyaWNzCmBgYHtyfQphbGxfZXhwbGFuYXRvcmllcyA9IGMoCiAgICAnY2l0eV9hdmdfbmR2aScsICdjaXR5X2F2Z19lbGV2YXRpb24nLCAnY2l0eV9hdmdfdGVtcCcsCiAgICAncmVnaW9uXzUwa21fYXZnX3NvaWxfbW9pc3R1cmUnLAogICAgJ2NvcmVfcmVhbG1BZnJvdHJvcGljJywgJ2NvcmVfcmVhbG1BdXN0cmFsYXNpYScsICdjb3JlX3JlYWxtSW5kb21hbGF5YW4nLCAnY29yZV9yZWFsbU5lYXJjdGljJywgJ2NvcmVfcmVhbG1OZW90cm9waWMnLCAnY29yZV9yZWFsbVBhbGVhcmN0aWMnLAogICAgJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXNObyBpbnRyb2R1Y2VkIHNwZWNpZXMnLCAnaGFzX2ludHJvZHVjZWRfc3BlY2llc0ludHJvZHVjZWQgc3BlY2llcycsCiAgICAnY29yZV9yZWFsbUFmcm90cm9waWM6aGFzX2ludHJvZHVjZWRfc3BlY2llc0ludHJvZHVjZWQgc3BlY2llcycsCiAgICAnY29yZV9yZWFsbUF1c3RyYWxhc2lhOmhhc19pbnRyb2R1Y2VkX3NwZWNpZXNJbnRyb2R1Y2VkIHNwZWNpZXMnLAogICAgJ2NvcmVfcmVhbG1JbmRvbWFsYXlhbjpoYXNfaW50cm9kdWNlZF9zcGVjaWVzSW50cm9kdWNlZCBzcGVjaWVzJywKICAgICdjb3JlX3JlYWxtTmVhcmN0aWM6aGFzX2ludHJvZHVjZWRfc3BlY2llc0ludHJvZHVjZWQgc3BlY2llcycsCiAgICAnY29yZV9yZWFsbU5lb3Ryb3BpYzpoYXNfaW50cm9kdWNlZF9zcGVjaWVzSW50cm9kdWNlZCBzcGVjaWVzJywKICAgICdjb3JlX3JlYWxtUGFsZWFyY3RpYzpoYXNfaW50cm9kdWNlZF9zcGVjaWVzSW50cm9kdWNlZCBzcGVjaWVzJywKICAgICdjb3JlX3JlYWxtT2NlYW5pYTpoYXNfaW50cm9kdWNlZF9zcGVjaWVzSW50cm9kdWNlZCBzcGVjaWVzJwopCgphbGxfZXhwbGFuYXRvcnlfbmFtZXMgPSBmYWN0b3IoCiAgIGMoCiAgICAnQXZnLiBORFZJJywgJ0F2Zy4gRWxldmF0aW9uJywgJ0F2Zy4gVGVtcC4nLAogICAgJ0F2Zy4gU29pbCBNb2lzdHVyZScsCiAgICAnQWZyb3Ryb3BpYycsICdBdXN0cmFsYXNpYScsICdJbmRvbWFsYXlhbicsICdOZWFyY3RpYycsICdOZW90cm9waWMnLCAnUGFsZWFyY3RpYycsCiAgICAnSW50cm9kdWNlZCBBYnNlbnQnLCAnSW50cm9kdWNlZCBQcmVzZW50JywKICAgICdBZnJvdHJvcGljYWwgKiBJbnRyb2R1Y2VkIHByZXNlbnQnLAogICAgJ0F1c3RhbGlhc2lhbiAqIEludHJvZHVjZWQgcHJlc2VudCcsCiAgICAnSW5kb21hbGF5YW4gKiBJbnRyb2R1Y2VkIHByZXNlbnQnLAogICAgJ05lYXJjdGljICogSW50cm9kdWNlZCBwcmVzZW50JywKICAgICdOZW90cm9waWNhbCAqIEludHJvZHVjZWQgcHJlc2VudCcsCiAgICAnUGFsZWFyY3RpYyAqIEludHJvZHVjZWQgcHJlc2VudCcsCiAgICAnT2NlYW5pY2FsICogSW50cm9kdWNlZCBwcmVzZW50JwogICksIG9yZGVyZWQgPSBUCikKCmV4cGxhbmF0b3J5X2RpY3Rpb25hcnkgPSBkYXRhLmZyYW1lKGV4cGxhbmF0b3J5ID0gYWxsX2V4cGxhbmF0b3JpZXMsIGV4cGxhbmF0b3J5X25hbWUgPSBhbGxfZXhwbGFuYXRvcnlfbmFtZXMpCiAgCndpdGhfZXhwbGFuYXRvcnlfdHlwZV9sYWJlbHMgPSBmdW5jdGlvbihwKSB7CiAgcCA9IHBbcCRleHBsYW5hdG9yeSAhPSAnKEludGVyY2VwdCknLF0KICBleHBsYW5hdG9yeV9sZXZlbHMgPSBhbGxfZXhwbGFuYXRvcmllc1thbGxfZXhwbGFuYXRvcmllcyAlaW4lIHAkZXhwbGFuYXRvcnldCiAgcCRleHBsYW5hdG9yeSA8LSBmYWN0b3IocCRleHBsYW5hdG9yeSwgbGV2ZWxzID0gZXhwbGFuYXRvcnlfbGV2ZWxzKQogIAogIHAkdHlwZSA8LSAnUmVhbG0nCiAgcCR0eXBlW3AkZXhwbGFuYXRvcnkgJWluJSBjKCdjaXR5X2F2Z19uZHZpJywgJ2NpdHlfYXZnX2VsZXZhdGlvbicsICdjaXR5X2F2Z190ZW1wJyldIDwtICdDaXR5IGdlb2dyYXBoeScKICBwJHR5cGVbcCRleHBsYW5hdG9yeSAlaW4lIGMoJ3JlZ2lvbl81MGttX2F2Z19zb2lsX21vaXN0dXJlJyldIDwtICdSZWdpb25hbCAoNTAga20pIGdlb2dyYXBoeScKICBwJHR5cGVbcCRleHBsYW5hdG9yeSAlaW4lIGMoJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXNObyBpbnRyb2R1Y2VkIHNwZWNpZXMnLCAnaGFzX2ludHJvZHVjZWRfc3BlY2llc0ludHJvZHVjZWQgc3BlY2llcycpXSA8LSAnSW50cm9kdWNlZCBzcGVjaWVzJwogIHAKfQoKd2l0aF9leHBsYW5hdG9yeV9uYW1lcyA9IGZ1bmN0aW9uKHApIHsKICBwICU+JSBsZWZ0X2pvaW4oZXhwbGFuYXRvcnlfZGljdGlvbmFyeSkgJT4lIGFycmFuZ2UoZGVzYyhleHBsYW5hdG9yeV9uYW1lKSkKfQoKdHlwZV9sYWJlbHMgPSBmdW5jdGlvbihwKSB7CiAgZXhwbGFuYXRvcnlfbGV2ZWxzID0gYWxsX2V4cGxhbmF0b3JpZXNbYWxsX2V4cGxhbmF0b3JpZXMgJWluJSBwJGV4cGxhbmF0b3J5XQogIHAkZXhwbGFuYXRvcnkgPC0gZmFjdG9yKHAkZXhwbGFuYXRvcnksIGxldmVscyA9IGV4cGxhbmF0b3J5X2xldmVscykKICAKICBwJHR5cGUgPC0gJ1JlYWxtJwogIHAkdHlwZVtwJGV4cGxhbmF0b3J5ICVpbiUgYygnY2l0eV9hdmdfbmR2aScsICdjaXR5X2F2Z19lbGV2YXRpb24nLCAnY2l0eV9hdmdfdGVtcCcsICdjaXR5X2F2Z19taW5fbW9udGhseV90ZW1wJywgJ2NpdHlfYXZnX21heF9tb250aGx5X3RlbXAnLCAKICAgICdjaXR5X2F2Z19tb250aGx5X3RlbXAnLCAnY2l0eV9hdmdfcmFpbmZhbGwnLCAnY2l0eV9hdmdfbWF4X21vbnRobHlfcmFpbmZhbGwnLCAnY2l0eV9hdmdfbWluX21vbnRobHlfcmFpbmZhbGwnLCAKICAgICdjaXR5X2F2Z19zb2lsX21vaXN0dXJlJywgJ2NpdHlfbWF4X2VsZXYnLCAnY2l0eV9taW5fZWxldicsICdjaXR5X2VsZXZfcmFuZ2UnKV0gPC0gJ0NpdHkgZ2VvZ3JhcGh5JwogIHAkdHlwZVtwJGV4cGxhbmF0b3J5ICVpbiUgYygncmVnaW9uXzUwa21fYXZnX25kdmknLCAncmVnaW9uXzUwa21fYXZnX2VsZXZhdGlvbicsICdyZWdpb25fNTBrbV9hdmdfc29pbF9tb2lzdHVyZScsICdyZWdpb25fNTBrbV9tYXhfZWxldicsIAogICAgJ3JlZ2lvbl81MGttX21pbl9lbGV2JywgJ3JlZ2lvbl81MGttX2VsZXZfcmFuZ2UnKV0gPC0gJ1JlZ2lvbmFsICg1MCBrbSkgZ2VvZ3JhcGh5JwogICBwJHR5cGVbcCRleHBsYW5hdG9yeSAlaW4lIGMoJ3JlZ2lvbl8yMGttX2F2Z19uZHZpJywgJ3JlZ2lvbl8yMGttX2F2Z19lbGV2YXRpb24nLCAncmVnaW9uXzIwa21fYXZnX3NvaWxfbW9pc3R1cmUnLCAncmVnaW9uXzIwa21fbWF4X2VsZXYnLCAKICAgICdyZWdpb25fMjBrbV9taW5fZWxldicsICdyZWdpb25fMjBrbV9lbGV2X3JhbmdlJyldIDwtICdSZWdpb25hbCAoMjAga20pIGdlb2dyYXBoeScKICBwJHR5cGVbcCRleHBsYW5hdG9yeSAlaW4lIGMoJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXNObyBpbnRyb2R1Y2VkIHNwZWNpZXMnLCAnaGFzX2ludHJvZHVjZWRfc3BlY2llc0ludHJvZHVjZWQgc3BlY2llcycpXSA8LSAnSW50cm9kdWNlZCBzcGVjaWVzJwogIHAKfQpgYGAKCmBgYHtyfQpleHBsYW5hdG9yeV9sYWJlbHMgPSBjKAogICdoYXNfaW50cm9kdWNlZF9zcGVjaWVzJz0nSW50cm9kdWNlZCBzcGVjaWVzJywgCiAgJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXNObyBpbnRyb2R1Y2VkIHNwZWNpZXMnPSdJbnRyb2R1Y2VkIGFic2VudCcsIAogICdoYXNfaW50cm9kdWNlZF9zcGVjaWVzSW50cm9kdWNlZCBzcGVjaWVzJz0nSW50cm9kdWNlZCBwcmVzZW50JywKICAnY2l0eV9hdmdfbmR2aSc9J0F2ZXJhZ2UgTkRWSScsIAogICdjaXR5X2F2Z19lbGV2YXRpb24nPSdBdmVyYWdlIGVsZXZhdGlvbicsIAogICdjaXR5X2F2Z190ZW1wJz0nQXZlcmFnZSB0ZW1wZXJhdHVyZScsIAogICdjaXR5X2F2Z19taW5fbW9udGhseV90ZW1wJz0nQXZlcmFnZSBtaW5pbXVtIG1vbnRobHkgdGVtcGVyYXR1cmUnLCAKICAnY2l0eV9hdmdfbWF4X21vbnRobHlfdGVtcCc9J0F2ZXJhZ2UgbWF4aW11bSBtb250aGx5IHRlbXBlcmF0dXJlJywgCiAgJ2NpdHlfYXZnX21vbnRobHlfdGVtcCc9J0F2ZXJhZ2UgbW9udGhseSB0ZW1wZXJhdHVyZScsIAogICdjaXR5X2F2Z19yYWluZmFsbCc9J0F2ZXJhZ2UgcmFpbmZhbGwnLCAKICAnY2l0eV9hdmdfbWF4X21vbnRobHlfcmFpbmZhbGwnPSdBdmVyYWdlIG1heGltdW0gbW9udGhseSByYWluZmFsbCcsIAogICdjaXR5X2F2Z19taW5fbW9udGhseV9yYWluZmFsbCc9J0F2ZXJhZ2UgbWluaW11bSBtb250aGx5IHJhaW5mYWxsJywgCiAgJ2NpdHlfYXZnX3NvaWxfbW9pc3R1cmUnPSdBdmVyYWdlIHNvaWwgbW9pc3R1cmUnLCAKICAnY2l0eV9tYXhfZWxldic9J01heGltdW0gZWxldmF0aW9uJywgCiAgJ2NpdHlfbWluX2VsZXYnPSdNaW5pbXVtIGVsZXZhdGlvbicsIAogICdjaXR5X2VsZXZfcmFuZ2UnPSdFbGV2YXRpb24gcmFuZ2UnLCAKICAncmVnaW9uXzIwa21fYXZnX25kdmknPSdBdmVyYWdlIE5EVkknLCAKICAncmVnaW9uXzIwa21fYXZnX2VsZXZhdGlvbic9J0F2ZXJhZ2UgZWxldmF0aW9uJywgCiAgJ3JlZ2lvbl8yMGttX2F2Z19zb2lsX21vaXN0dXJlJz0nQXZlcmFnZSBzb2lsIG1vaXN0dXJlJywgCiAgJ3JlZ2lvbl8yMGttX21heF9lbGV2Jz0nTWF4aW11bSBlbGV2YXRpb24nLCAKICAncmVnaW9uXzIwa21fbWluX2VsZXYnPSdNaW5pbXVtIGVsZXZhdGlvbicsCiAgJ3JlZ2lvbl8yMGttX2VsZXZfcmFuZ2UnPSdFbGV2YXRpb24gcmFuZ2UnLAogICdyZWdpb25fNTBrbV9hdmdfbmR2aSc9J0F2ZXJhZ2UgTkRWSScsCiAgJ3JlZ2lvbl81MGttX2F2Z19lbGV2YXRpb24nPSdBdmVyYWdlIGVsZXZhdGlvbicsCiAgJ3JlZ2lvbl81MGttX2F2Z19zb2lsX21vaXN0dXJlJz0nQXZlcmFnZSBzb2lsIG1vaXN0dXJlJywgCiAgJ3JlZ2lvbl81MGttX21heF9lbGV2Jz0nTWF4aW11bSBlbGV2YXRpb24nLAogICdyZWdpb25fNTBrbV9taW5fZWxldic9J01pbmltdW0gZWxldmF0aW9uJywgCiAgJ3JlZ2lvbl81MGttX2VsZXZfcmFuZ2UnPSdFbGV2YXRpb24gcmFuZ2UnLAogICdhYnNfbGF0aXR1ZGUnID0gJ0Fic29sdXRlIGxhdGl0dWRlJywKICAnbGF0aXR1ZGUnID0gJ0xhdGl0dWRlJywKICAnbG9uZ2l0dWRlJyA9ICdMb25naXR1ZGUnLAogICdjb3JlX3JlYWxtQWZyb3Ryb3BpYycgPSAnQWZyb3Ryb3BpY2FsJywgCiAgJ2NvcmVfcmVhbG1BdXN0cmFsYXNpYScgPSAnQXVzdGFsaWFzaWFuJywgCiAgJ2NvcmVfcmVhbG1JbmRvbWFsYXlhbicgPSAnSW5kb21hbGF5YW4nLCAKICAnY29yZV9yZWFsbU5lYXJjdGljJyA9ICdOZWFyY3RpYycsIAogICdjb3JlX3JlYWxtTmVvdHJvcGljJyA9ICdOZW90cm9waWNhbCcsCiAgJ2NvcmVfcmVhbG1QYWxlYXJjdGljJyA9ICdQYWxlYXJjdGljJywKICAnY29yZV9yZWFsbU9jZWFuaWEnID0gJ09jZWFuaWNhbCcsCiAgJ2NvcmVfcmVhbG1BZnJvdHJvcGljOmhhc19pbnRyb2R1Y2VkX3NwZWNpZXNJbnRyb2R1Y2VkIHNwZWNpZXMnID0gJ0Fmcm90cm9waWNhbCAqIEludHJvZHVjZWQgcHJlc2VudCcsCiAgJ2NvcmVfcmVhbG1BdXN0cmFsYXNpYTpoYXNfaW50cm9kdWNlZF9zcGVjaWVzSW50cm9kdWNlZCBzcGVjaWVzJyA9ICdBdXN0YWxpYXNpYW4gKiBJbnRyb2R1Y2VkIHByZXNlbnQnLAogICdjb3JlX3JlYWxtSW5kb21hbGF5YW46aGFzX2ludHJvZHVjZWRfc3BlY2llc0ludHJvZHVjZWQgc3BlY2llcycgPSAnSW5kb21hbGF5YW4gKiBJbnRyb2R1Y2VkIHByZXNlbnQnLAogICdjb3JlX3JlYWxtTmVhcmN0aWM6aGFzX2ludHJvZHVjZWRfc3BlY2llc0ludHJvZHVjZWQgc3BlY2llcycgPSAnTmVhcmN0aWMgKiBJbnRyb2R1Y2VkIHByZXNlbnQnLAogICdjb3JlX3JlYWxtTmVvdHJvcGljOmhhc19pbnRyb2R1Y2VkX3NwZWNpZXNJbnRyb2R1Y2VkIHNwZWNpZXMnID0gJ05lb3Ryb3BpY2FsICogSW50cm9kdWNlZCBwcmVzZW50JywKICAnY29yZV9yZWFsbVBhbGVhcmN0aWM6aGFzX2ludHJvZHVjZWRfc3BlY2llc0ludHJvZHVjZWQgc3BlY2llcycgPSAnUGFsZWFyY3RpYyAqIEludHJvZHVjZWQgcHJlc2VudCcsCiAgJ2NvcmVfcmVhbG1PY2VhbmlhOmhhc19pbnRyb2R1Y2VkX3NwZWNpZXNJbnRyb2R1Y2VkIHNwZWNpZXMnID0gJ09jZWFuaWNhbCAqIEludHJvZHVjZWQgcHJlc2VudCcKKQpgYGAKCmBgYHtyfQpjcmVhdGVfZm9ybXVsYSA9IGZ1bmN0aW9uKHJlc3BvbnNlX3ZhcikgewogIGFzLmZvcm11bGEocGFzdGUocmVzcG9uc2VfdmFyLCAnfiBjb3JlX3JlYWxtICsgY2l0eV9hdmdfbmR2aSArIGNpdHlfYXZnX2VsZXZhdGlvbiArIGNpdHlfYXZnX3RlbXAgKyByZWdpb25fNTBrbV9hdmdfc29pbF9tb2lzdHVyZSArIGhhc19pbnRyb2R1Y2VkX3NwZWNpZXMnKSkKfQpgYGAKCiMjIEhlbHBlciBwbG90IGZ1bmN0aW9ucwpgYGB7cn0KZ2VvbV9tYXAgPSBmdW5jdGlvbihtYXBfc2YsIHRpdGxlLCBzY2FsZSA9IHN0YW5kYXJkaXNlZF9jb2xvdXJzX3NjYWxlLCBjb2xvdXJfbGFiZWwgPSAnU3RhbmRhcmRpc2VkXG5SZXNwb25zZScpIHsKICBub3JtX21udGRfYW5hbHlzaXNfZ2VvID0gZ2dwbG90KCkgKyAKICAgIGdlb21fc2YoZGF0YSA9IHdvcmxkX21hcCwgYWVzKGdlb21ldHJ5ID0gZ2VvbWV0cnkpKSArCiAgICBtYXBfc2YgKwogICAgc2NhbGUgKwogICAgbGFicyhjb2xvdXIgPSBjb2xvdXJfbGFiZWwpICsKICAgIHRoZW1lX2J3KCkgKwogICAgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJib3R0b20iKQp9CgpnZW9tX21hcF9zdGQgPSBmdW5jdGlvbihtYXBfc2YsIHRpdGxlKSB7CiAgZ2VvbV9tYXAobWFwX3NmLCB0aXRsZSkKfQoKZ2VvbV9tYXBfbnJtID0gZnVuY3Rpb24obWFwX3NmLCB0aXRsZSkgewogIGdlb21fbWFwKG1hcF9zZiwgdGl0bGUsIG5vcm1hbGlzZWRfY29sb3Vyc19zY2FsZSwgJ05vcm1hbGlzZWRcblJlc3BvbnNlJykKfQpgYGAKCiMjIEhlbHBlciBEcmVkZ2UgZnVuY3Rpb25zCmBgYHtyfQojIFRha2VuIGZyb20gTXVNSU4gcGFja2FnZQojIGh0dHBzOi8vcmRyci5pby9jcmFuL011TUluL3NyYy9SL2F2ZXJhZ2luZy5SCiMgaHR0cHM6Ly9yZHJyLmlvL2NyYW4vTXVNSW4vc3JjL1IvbW9kZWwuYXZnLlIKCi5jb2VmYXJyLmF2ZyA8LQogIGZ1bmN0aW9uKGNmYXJyLCB3ZWlnaHQsIHJldmlzZWQudmFyLCBmdWxsLCBhbHBoYSkgewkKICAgIHdlaWdodCA8LSB3ZWlnaHQgLyBzdW0od2VpZ2h0KQogICAgbkNvZWYgPC0gZGltKGNmYXJyKVszTF0KICAgIGlmKGZ1bGwpIHsKICAgICAgbmFzIDwtIGlzLm5hKGNmYXJyWywgMUwsIF0pICYgaXMubmEoY2ZhcnJbLCAyTCwgXSkKICAgICAgY2ZhcnJbLCAxTCwgXVtuYXNdIDwtIGNmYXJyWywgMkwsIF1bbmFzXSA8LSAwCiAgICAgICNjZmFyclssIDFMOjJMLCBdW2lzLm5hKGNmYXJyWywgMUw6MkwsIF0pXSA8LSAwCiAgICAgIGlmKCFhbGwoaXMubmEoY2ZhcnJbLCAzTCwgXSkpKQogICAgICAgIGNmYXJyWyAsM0wsIF1baXMubmEoY2ZhcnJbICwgM0wsIF0pXSA8LSBJbmYKICAgIH0KICAgIAogICAgYXZnY29lZiA8LSBhcnJheShkaW0gPSBjKG5Db2VmLCA1TCksCiAgICAgICAgICAgICAgICAgICAgIGRpbW5hbWVzID0gbGlzdChkaW1uYW1lcyhjZmFycilbWzNMXV0sIGMoIkVzdGltYXRlIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiU3RkLiBFcnJvciIsICJBZGp1c3RlZCBTRSIsICJMb3dlciBDSSIsICJVcHBlciBDSSIpKSkKICAgIGZvcihpIGluIHNlcV9sZW4obkNvZWYpKQogICAgICBhdmdjb2VmW2ksIF0gPC0gcGFyLmF2ZyhjZmFyclssIDFMLCBpXSwgY2ZhcnJbLCAyTCwgaV0sIHdlaWdodCwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZGYgPSBjZmFyclssIDNMLCBpXSwgYWxwaGEgPSBhbHBoYSwgcmV2aXNlZC52YXIgPSByZXZpc2VkLnZhcikKICAgIAogICAgYXZnY29lZltpcy5uYW4oYXZnY29lZildIDwtIE5BCiAgICByZXR1cm4oYXZnY29lZikKICB9CgoubWFrZWNvZWZtYXQgPC0gZnVuY3Rpb24oY2YpIHsKICBuby5hc2UgPC0gYWxsKGlzLm5hKGNmWywgM0xdKSkKICB6IDwtIGFicyhjZlssIDFMXSAvIGNmWywgaWYobm8uYXNlKSAyTCBlbHNlIDNMXSkKICBwdmFsIDwtIDIgKiBwbm9ybSh6LCBsb3dlci50YWlsID0gRkFMU0UpCiAgY2JpbmQoY2ZbLCBpZihuby5hc2UpIDFMOjJMIGVsc2UgMUw6M0wsIGRyb3AgPSBGQUxTRV0sCiAgICAgICAgYHogdmFsdWVgID0geiwgYFByKD58enwpYCA9IHphcHNtYWxsKHB2YWwpKQp9CgojIEdlbmVyYXRlIG1vZGVsIHNlbGVjdGlvbnMgdXNpbmcgbG1lciwgZHJlZGdlLCBhbmQgbW9kZWwuYXZnCiMgYGZvcnVtbGFgIDogYSB0d28tc2lkZWQgbGluZWFyIGZvcm11bGEgb2JqZWN0IGRlc2NyaWJpbmcgYm90aCB0aGUgZml4ZWQtZWZmZWN0cyBhbmQgcmFuZG9tLWVmZmVjdHMgcGFydCBvZiB0aGUgbW9kZWwKIyBgZGF0YWAgOiB0aGUgZGF0YSBmcmFtZSBjb250YWluaW5nIHRoZSB2YXJpYWJsZXMgZnJvbSB0aGUgZm9ybXVsYQojIGBhaWNfZGVsdGFgIDogdGhlIEFJQyBkZWx0YSB0byB1c2UgZm9yIHNlbGVjdGluZyBtb2RlbHMgaW4gbW9kZWwgYXZlcmFnZQptb2RlbF9hdmVyYWdlIDwtIGZ1bmN0aW9uKGZvcm11bGEsIGRhdGEsIGFpY19kZWx0YSA9IDIwKSB7CiAgbW9kZWwgPC0gbG0oCiAgICBmb3JtdWxhLAogICAgZGF0YT1kYXRhCiAgKQogIGRyZWRnZV9yZXN1bHQgPC0gZHJlZGdlKG1vZGVsKQogIHN1bW1hcnkobW9kZWwuYXZnKGRyZWRnZV9yZXN1bHQsIHN1YnNldCA9IGRlbHRhIDwgYWljX2RlbHRhKSkKfQoKIyBDcmVhdGUgYSBzdW1tYXJ5IGRhdGEgZnJhbWUgY29udGFpbmluZyB0aGUgc2VsZWN0ZWQgdmFyaWFibGVzIGZyb20gYSBtb2RlbAojIGBtb2RlbF9zdW1gIDogVGhlIG1vZGVsIHN1bW1hcnkgb3V0cHV0IGZyb20gYG1vZGVsX2F2ZXJhZ2VgCm1vZGVsX3N1bW1hcnkgPC0gZnVuY3Rpb24obW9kZWxfc3VtKSB7CiAgLmNvbHVtbl9uYW1lIDwtIGZ1bmN0aW9uKHBvc3RmaXgpIHsKICAgIHBvc3RmaXgKICB9CiAgCiAgIyBqdXN0IHJldHVybiB0aGUgZXN0aW1hdGUgYW5kIHAgdmFsdWUKICB3ZWlnaHQgPC0gbW9kZWxfc3VtJG1zVGFibGVbLCA1TF0KICAKICBjb2VmbWF0LmZ1bGwgPC0gYXMuZGF0YS5mcmFtZSgubWFrZWNvZWZtYXQoLmNvZWZhcnIuYXZnKG1vZGVsX3N1bSRjb2VmQXJyYXksIHdlaWdodCwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGF0dHIobW9kZWxfc3VtLCAicmV2aXNlZC52YXIiKSwgVFJVRSwgMC4wNSkpKQogIAogIGNvZWZtYXQuc3Vic2V0IDwtCiAgICBhcy5kYXRhLmZyYW1lKC5tYWtlY29lZm1hdCguY29lZmFyci5hdmcobW9kZWxfc3VtJGNvZWZBcnJheSwgd2VpZ2h0LAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGF0dHIobW9kZWxfc3VtLCAicmV2aXNlZC52YXIiKSwgRkFMU0UsIDAuMDUpKSkKICAKICAKICBjb2VmbWF0LnN1YnNldCA8LSBjb2VmbWF0LnN1YnNldFstYygxKSwgYygxLCAyLCA1KV0KICBuYW1lcyhjb2VmbWF0LnN1YnNldCkgPC0gYyguY29sdW1uX25hbWUoImVzdGltYXRlIiksIC5jb2x1bW5fbmFtZSgiZXJyb3IiKSwgLmNvbHVtbl9uYW1lKCJwIikpCiAgY29lZm1hdC5zdWJzZXQgPC0gdGliYmxlOjpyb3duYW1lc190b19jb2x1bW4oY29lZm1hdC5zdWJzZXQsICJleHBsYW5hdG9yeSIpCiAgY29lZm1hdC5zdWJzZXQkbW9kZWwgPSAnc3Vic2V0JwogIAogIGNvZWZtYXQuZnVsbCA8LSBjb2VmbWF0LmZ1bGxbLWMoMSksIGMoMSwgMiwgNSldCiAgbmFtZXMoY29lZm1hdC5mdWxsKSA8LSBjKC5jb2x1bW5fbmFtZSgiZXN0aW1hdGUiKSwgLmNvbHVtbl9uYW1lKCJlcnJvciIpLCAuY29sdW1uX25hbWUoInAiKSkKICBjb2VmbWF0LmZ1bGwgPC0gdGliYmxlOjpyb3duYW1lc190b19jb2x1bW4oY29lZm1hdC5mdWxsLCAiZXhwbGFuYXRvcnkiKQogIGNvZWZtYXQuZnVsbCRtb2RlbCA9ICdmdWxsJwogIAogIHJiaW5kKGNvZWZtYXQuZnVsbCwgY29lZm1hdC5zdWJzZXQpCn0KYGBgCgpgYGB7cn0KcGxvdF9kcmVkZ2VfcmVzdWx0ID0gZnVuY3Rpb24ocmVzdWx0X3RhYmxlLCBtdSA9IDApIHsKICBwID0gcmVzdWx0X3RhYmxlW3Jlc3VsdF90YWJsZSRtb2RlbCA9PSAnZnVsbCcsXQogIHAgPSB0eXBlX2xhYmVscyhwKQoKICBnZ3Bsb3QocCwgYWVzKHkgPSBleHBsYW5hdG9yeSwgeCA9IGVzdGltYXRlLCBjb2xvdXIgPSB0eXBlKSkgKyAKICAgIGdlb21fbGluZSgpICsKICAgIGdlb21fcG9pbnQoKSArCiAgICBnZW9tX2Vycm9yYmFyKGFlcyh4bWluPWVzdGltYXRlLWVycm9yLCB4bWF4PWVzdGltYXRlK2Vycm9yKSwgd2lkdGg9LjIsCiAgICAgICAgICAgICAgICAgICBwb3NpdGlvbj1wb3NpdGlvbl9kb2RnZSgwLjA1KSkgKwogICAgc2NhbGVfeV9kaXNjcmV0ZSgKICAgICAgbGltaXRzID0gcmV2KGxldmVscyhwJGV4cGxhbmF0b3J5KSksIAogICAgICBsYWJlbHMgPSBleHBsYW5hdG9yeV9sYWJlbHMpICsKICAgIHNjYWxlX2NvbG91cl9tYW51YWwoCiAgICAgIHZhbHVlcyA9IGMocmVhbG1fY29sb3VyLCBjaXR5X2dlb2dyYXBoeV9jb2xvdXIsIHJlZ2lvbmFsXzUwa21fZ2VvZ3JhcGh5X2NvbG91ciwgcmVnaW9uYWxfMjBrbV9nZW9ncmFwaHlfY29sb3VyLCBpbnRyb2R1Y2VkX3NwZWNpZXNfY29sb3VyKSwgCiAgICAgIGJyZWFrcyA9IGMoJ1JlYWxtJywgJ0NpdHkgZ2VvZ3JhcGh5JywgJ1JlZ2lvbmFsICg1MCBrbSkgZ2VvZ3JhcGh5JywgJ1JlZ2lvbmFsICgyMCBrbSkgZ2VvZ3JhcGh5JywgJ0ludHJvZHVjZWQgc3BlY2llcycpKSArCiAgICB0aGVtZV9idygpICsKICAgIGdlb21fdmxpbmUoeGludGVyY2VwdD1tdSwgbGluZXR5cGU9ImRvdHRlZCIpICsKICAgIGd1aWRlcyhjb2xvdXI9Z3VpZGVfbGVnZW5kKHRpdGxlPSJQcmVkaWN0b3IgdHlwZSIpKSArIHhsYWIoJ0RpZmZlcmVuY2UgaW4gcmVzcG9uc2UgZnJvbSAwXG5oYWJpdGF0IGZpbHRlcmluZyAoPCAwKSBhbmQgY29tcGV0aXRpdmUgaW50ZXJhY3Rpb25zICg+IDApXG7CsSBTdGFuZGFyZCBFcnJvcicpICsgeWxhYignUHJlZGljdG9yJykgKwogICAgdGhlbWUobGVnZW5kLmp1c3RpZmljYXRpb24gPSAidG9wIikKfQpgYGAKCiMjIEdMUyBTcGF0aWFsIEhlbHBlcnMKYGBge3J9Cmdsc19tZXRob2QgPSAiTUwiCgpzcGF0aWFsX21vZGVsID0gZnVuY3Rpb24oZm9ybXVsYSwgY29ycmVsYXRpb24pIHsKICBnbHMoCiAgICBmb3JtdWxhLCAKICAgIGRhdGEgPSBhbmFseXNpc19kYXRhLCAKICAgIGNvcnJlbGF0aW9uID0gY29ycmVsYXRpb24sIAogICAgbWV0aG9kID0gZ2xzX21ldGhvZAogICkKfQoKcGxvdF9zcGF0aWFsX3Jlc3VsdCA9IGZ1bmN0aW9uKG1vZGVsX3Jlc3VsdCkgewogIG1vZGVsX3N1bW1hcnkgPSBzdW1tYXJ5KG1vZGVsX3Jlc3VsdCkKICByZXN1bHRfdGFibGUgPSBhcy5kYXRhLmZyYW1lKG1vZGVsX3N1bW1hcnkkdFRhYmxlKQogIHJlc3VsdF90YWJsZSRleHBsYW5hdG9yeSA9IHJvd25hbWVzKHJlc3VsdF90YWJsZSkKICAKICByZXN1bHRfdGFibGUgPSByZXN1bHRfdGFibGUgJT4lIHdpdGhfZXhwbGFuYXRvcnlfdHlwZV9sYWJlbHMoKSAlPiUgd2l0aF9leHBsYW5hdG9yeV9uYW1lcygpCiAgCiAgZ2dwbG90Mjo6Z2dwbG90KHJlc3VsdF90YWJsZSwgZ2dwbG90Mjo6YWVzKHk9ZmFjdG9yKGV4cGxhbmF0b3J5X25hbWUsIGxldmVsID0gYWxsX2V4cGxhbmF0b3J5X25hbWVzLCBvcmRlcmVkID0gVCksIHg9VmFsdWUsIGNvbG91ciA9IHR5cGUpKSArIAogICAgZ2dwbG90Mjo6Z2VvbV9saW5lKCkgKwogICAgZ2dwbG90Mjo6Z2VvbV9wb2ludCgpICsKICAgIGdncGxvdDI6Omdlb21fZXJyb3JiYXIoZ2dwbG90Mjo6YWVzKHhtaW49VmFsdWUtU3RkLkVycm9yLCB4bWF4PVZhbHVlK1N0ZC5FcnJvciksIHdpZHRoPS4yLAogICAgICAgICAgICAgICAgICAgcG9zaXRpb249Z2dwbG90Mjo6cG9zaXRpb25fZG9kZ2UoMC4wNSkpICsKICAgIGdncGxvdDI6OnRoZW1lX2J3KCkgKwogICAgZ2dwbG90Mjo6Z2VvbV92bGluZSh4aW50ZXJjZXB0PTAsIGxpbmV0eXBlPSJkb3R0ZWQiKSArCiAgICBnZ3Bsb3QyOjp0aGVtZShsZWdlbmQuanVzdGlmaWNhdGlvbiA9ICJ0b3AiKSArCiAgICB5bGFiKCdQcmVkaWN0b3InKSArCiAgICBndWlkZXMoY29sb3VyPWd1aWRlX2xlZ2VuZCh0aXRsZT0iUHJlZGljdG9yIHR5cGUiKSkgKyB4bGFiKCdEaWZmZXJlbmNlIGluIHJlc3BvbnNlIGZyb20gMFxuaGFiaXRhdCBmaWx0ZXJpbmcgKDwgMCkgYW5kIGNvbXBldGl0aXZlIGludGVyYWN0aW9ucyAoPiAwKVxuwrEgU3RhbmRhcmQgRXJyb3InKSArCiAgICBzY2FsZV9jb2xvdXJfbWFudWFsKAogICAgICB2YWx1ZXMgPSBjKHJlYWxtX2NvbG91ciwgY2l0eV9nZW9ncmFwaHlfY29sb3VyLCByZWdpb25hbF81MGttX2dlb2dyYXBoeV9jb2xvdXIsIGludHJvZHVjZWRfc3BlY2llc19jb2xvdXIpLCAKICAgICAgYnJlYWtzID0gYygnUmVhbG0nLCAnQ2l0eSBnZW9ncmFwaHknLCAnUmVnaW9uYWwgKDUwIGttKSBnZW9ncmFwaHknLCAnSW50cm9kdWNlZCBzcGVjaWVzJykpICsKICAgIHNjYWxlX3lfZGlzY3JldGUobGltaXRzID0gcmV2KGFsbF9leHBsYW5hdG9yeV9uYW1lc1thbGxfZXhwbGFuYXRvcnlfbmFtZXMgJWluJSByZXN1bHRfdGFibGUkZXhwbGFuYXRvcnlfbmFtZV0pKQp9CmBgYAoKIyMjIENob29zZSBiZXN0IHNwYXRpYWwgY29ycmVsYXRpb24gZnVuY3Rpb24KCiMjIyMgTU5URApgYGB7cn0KQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21udGRfc3RhbmRhcmQnKSwgY29yTGluKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbW50ZF9zdGFuZGFyZCcpLCBjb3JMaW4oZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21udGRfc3RhbmRhcmQnKSwgY29yRXhwKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbW50ZF9zdGFuZGFyZCcpLCBjb3JFeHAoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21udGRfc3RhbmRhcmQnKSwgY29yR2F1cyhmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21udGRfc3RhbmRhcmQnKSwgY29yR2F1cyhmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbW50ZF9zdGFuZGFyZCcpLCBjb3JSYXRpbyhmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21udGRfc3RhbmRhcmQnKSwgY29yUmF0aW8oZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21udGRfc3RhbmRhcmQnKSwgY29yU3BoZXIoZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtbnRkX3N0YW5kYXJkJyksIGNvclNwaGVyKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCmBgYApNTlREOiBjb3JSYXRpbyB3aXRoIE5NRFMgKyBsYXQvbG9uZwoKYGBge3J9CkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtbnRkX25vcm1hbCcpLCBjb3JMaW4oZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCiNBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbW50ZF9ub3JtYWwnKSwgY29yTGluKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtbnRkX25vcm1hbCcpLCBjb3JFeHAoZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtbnRkX25vcm1hbCcpLCBjb3JFeHAoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21udGRfbm9ybWFsJyksIGNvckdhdXMoZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtbnRkX25vcm1hbCcpLCBjb3JHYXVzKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtbnRkX25vcm1hbCcpLCBjb3JSYXRpbyhmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21udGRfbm9ybWFsJyksIGNvclJhdGlvKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtbnRkX25vcm1hbCcpLCBjb3JTcGhlcihmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21udGRfbm9ybWFsJyksIGNvclNwaGVyKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCmBgYAoKIyMjIyBCZWFrIFdpZHRoCgpgYGB7cn0KQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2JlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCcpLCBjb3JMaW4oZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCiNBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJyksIGNvckxpbihmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJyksIGNvckV4cChmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2JlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCcpLCBjb3JFeHAoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2JlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCcpLCBjb3JHYXVzKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJyksIGNvckdhdXMoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2JlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCcpLCBjb3JSYXRpbyhmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2JlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCcpLCBjb3JSYXRpbyhmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJyksIGNvclNwaGVyKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJyksIGNvclNwaGVyKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCmBgYApCZWFrIHdpZHRoOiBjb3JFeHAgd2l0aCBOTURTICsgbGF0L2xvbmcKCmBgYHtyfQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X25vcm1hbCcpLCBjb3JMaW4oZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdiZWFrX3dpZHRoX2ZkaXZfbm9ybWFsJyksIGNvckxpbihmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X25vcm1hbCcpLCBjb3JFeHAoZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdiZWFrX3dpZHRoX2ZkaXZfbm9ybWFsJyksIGNvckV4cChmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X25vcm1hbCcpLCBjb3JHYXVzKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X25vcm1hbCcpLCBjb3JHYXVzKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdiZWFrX3dpZHRoX2ZkaXZfbm9ybWFsJyksIGNvclJhdGlvKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X25vcm1hbCcpLCBjb3JSYXRpbyhmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X25vcm1hbCcpLCBjb3JTcGhlcihmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2JlYWtfd2lkdGhfZmRpdl9ub3JtYWwnKSwgY29yU3BoZXIoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKYGBgCgojIyMjIEhXSQpgYGB7cn0KQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X3N0YW5kYXJkJyksIGNvckxpbihmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X3N0YW5kYXJkJyksIGNvckxpbihmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnaHdpX2ZkaXZfc3RhbmRhcmQnKSwgY29yRXhwKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnaHdpX2ZkaXZfc3RhbmRhcmQnKSwgY29yRXhwKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdod2lfZmRpdl9zdGFuZGFyZCcpLCBjb3JHYXVzKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnaHdpX2ZkaXZfc3RhbmRhcmQnKSwgY29yR2F1cyhmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnaHdpX2ZkaXZfc3RhbmRhcmQnKSwgY29yUmF0aW8oZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdod2lfZmRpdl9zdGFuZGFyZCcpLCBjb3JSYXRpbyhmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnaHdpX2ZkaXZfc3RhbmRhcmQnKSwgY29yU3BoZXIoZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdod2lfZmRpdl9zdGFuZGFyZCcpLCBjb3JTcGhlcihmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpgYGAKCkhXSTogY29yRXhwIHdpdGggTk1EUyArIGxhdC9sb25nCgpgYGB7cn0KI0FJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdod2lfZmRpdl9ub3JtYWwnKSwgY29yTGluKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQojQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X25vcm1hbCcpLCBjb3JMaW4oZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X25vcm1hbCcpLCBjb3JFeHAoZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdod2lfZmRpdl9ub3JtYWwnKSwgY29yRXhwKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdod2lfZmRpdl9ub3JtYWwnKSwgY29yR2F1cyhmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X25vcm1hbCcpLCBjb3JHYXVzKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdod2lfZmRpdl9ub3JtYWwnKSwgY29yUmF0aW8oZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdod2lfZmRpdl9ub3JtYWwnKSwgY29yUmF0aW8oZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X25vcm1hbCcpLCBjb3JTcGhlcihmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X25vcm1hbCcpLCBjb3JTcGhlcihmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpgYGAKCiMjIyMgTWFzcwpgYGB7cn0KQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21hc3NfZmRpdl9zdGFuZGFyZCcpLCBjb3JMaW4oZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCiNBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X3N0YW5kYXJkJyksIGNvckxpbihmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X3N0YW5kYXJkJyksIGNvckV4cChmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21hc3NfZmRpdl9zdGFuZGFyZCcpLCBjb3JFeHAoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21hc3NfZmRpdl9zdGFuZGFyZCcpLCBjb3JHYXVzKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X3N0YW5kYXJkJyksIGNvckdhdXMoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21hc3NfZmRpdl9zdGFuZGFyZCcpLCBjb3JSYXRpbyhmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21hc3NfZmRpdl9zdGFuZGFyZCcpLCBjb3JSYXRpbyhmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X3N0YW5kYXJkJyksIGNvclNwaGVyKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X3N0YW5kYXJkJyksIGNvclNwaGVyKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCmBgYAoKTWFzczogY29yRXhwIHdpdGggTk1EUyArIGxhdC9sb25nCgpgYGB7cn0KI0FJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtYXNzX2ZkaXZfbm9ybWFsJyksIGNvckxpbihmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKI0FJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtYXNzX2ZkaXZfbm9ybWFsJyksIGNvckxpbihmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X25vcm1hbCcpLCBjb3JFeHAoZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtYXNzX2ZkaXZfbm9ybWFsJyksIGNvckV4cChmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X25vcm1hbCcpLCBjb3JHYXVzKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X25vcm1hbCcpLCBjb3JHYXVzKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtYXNzX2ZkaXZfbm9ybWFsJyksIGNvclJhdGlvKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X25vcm1hbCcpLCBjb3JSYXRpbyhmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X25vcm1hbCcpLCBjb3JTcGhlcihmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21hc3NfZmRpdl9ub3JtYWwnKSwgY29yU3BoZXIoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKYGBgCgpgYGB7cn0KY29ycmVsYXRpb25fZm9ybXVsYSA9IGFzLmZvcm11bGEoJ34gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlJykKCmNvcnJlbGF0aW9uX2Z1bmN0aW9uX2ZkaXYgPSBmdW5jdGlvbigpIHsKICBjb3JFeHAoZm9ybSA9IGNvcnJlbGF0aW9uX2Zvcm11bGEpCn0KCmNvcnJlbGF0aW9uX2Z1bmN0aW9uX21udGQgPSBmdW5jdGlvbigpIHsKICBjb3JSYXRpbyhmb3JtID0gY29ycmVsYXRpb25fZm9ybXVsYSkKfQpgYGAKCiMjIE1OVEQKCiMjIyBTdGFuZGFyZGlzZWQKYGBge3J9CnN0ZF9tbnRkX2FuYWx5c2lzX2dlb19wbG90ID0gZ2VvbV9tYXBfc3RkKGdlb21fc2YoZGF0YSA9IGFuYWx5c2lzX2RhdGEsIGFlcyhjb2xvciA9IG1udGRfc3RhbmRhcmQsIGdlb21ldHJ5ID0gZ2VvbWV0cnkpKSwgJ01OVEQnKQpzdGRfbW50ZF9hbmFseXNpc19nZW9fcGxvdApgYGAKCmBgYHtyfQpzdGRfbW50ZF9hbmFseXNpc19kYXRhID0gbW9kZWxfZGF0YShhbmFseXNpc19kYXRhWyFpcy5uYShhbmFseXNpc19kYXRhJG1udGRfc3RhbmRhcmQpLF0sICdtbnRkX3N0YW5kYXJkJykKc3RkX21udGRfYW5hbHlzaXNfZm9ybXVsYSA9IGNyZWF0ZV9mb3JtdWxhKCdtbnRkX3N0YW5kYXJkJykKc3RkX21udGRfYW5hbHlzaXNfcmVzdWx0ID0gbW9kZWxfYXZlcmFnZShzdGRfbW50ZF9hbmFseXNpc19mb3JtdWxhLCBzdGRfbW50ZF9hbmFseXNpc19kYXRhKQpzdGRfbW50ZF9hbmFseXNpc19yZXN1bHRfdGFibGUgPSBtb2RlbF9zdW1tYXJ5KHN0ZF9tbnRkX2FuYWx5c2lzX3Jlc3VsdCkKc3RkX21udGRfYW5hbHlzaXNfcmVzdWx0X3RhYmxlCmBgYAoKYGBge3J9CnN0ZF9tbnRkX2FuYWx5c2lzX3ByZWRfcGxvdCA9IHBsb3RfZHJlZGdlX3Jlc3VsdChzdGRfbW50ZF9hbmFseXNpc19yZXN1bHRfdGFibGUpCnN0ZF9tbnRkX2FuYWx5c2lzX3ByZWRfcGxvdApgYGAKCkRvIHRoZSByZXNpZHVhbHMgc3RpbGwgY29udGFpbiBzcGF0aWFsIGF1dG9jb3JyZWxhdGlvbiBmcm9tIGEgZml0dGVkIGxtPwpgYGB7cn0Kc3RkX21udGRfbG0gPSBsbShzdGRfbW50ZF9hbmFseXNpc19mb3JtdWxhLCBzdGRfbW50ZF9hbmFseXNpc19kYXRhKQptb3Jhbi50ZXN0KHN0ZF9tbnRkX2xtJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKbW9yYW4udGVzdChzdGRfbW50ZF9sbSRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbm1kc19uZWlnaGJvdXJzKSkKYGBgCgpgYGB7cn0Kc3RkX21udGRfc3BhdGlhbF9tb2RlbCA9IHNwYXRpYWxfbW9kZWwoc3RkX21udGRfYW5hbHlzaXNfZm9ybXVsYSwgY29ycmVsYXRpb25fZnVuY3Rpb25fbW50ZCgpKQptb3Jhbi50ZXN0KHN0ZF9tbnRkX3NwYXRpYWxfbW9kZWwkcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25laWdoYm91cnMpKQptb3Jhbi50ZXN0KHN0ZF9tbnRkX3NwYXRpYWxfbW9kZWwkcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CnN0ZF9tbnRkX2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90ID0gcGxvdF9zcGF0aWFsX3Jlc3VsdChzdGRfbW50ZF9zcGF0aWFsX21vZGVsKQpzdGRfbW50ZF9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdApgYGAKCiMjIyBOb3JtYWxpc2VkCmBgYHtyfQpucm1fbW50ZF9hbmFseXNpc19nZW9fcGxvdCA9IGdlb21fbWFwX25ybShnZW9tX3NmKGRhdGEgPSBhbmFseXNpc19kYXRhLCBhZXMoY29sb3IgPSBtbnRkX25vcm1hbCwgZ2VvbWV0cnkgPSBnZW9tZXRyeSkpLCAnTU5URCcpCm5ybV9tbnRkX2FuYWx5c2lzX2dlb19wbG90CmBgYAoKYGBge3J9Cm5ybV9tbnRkX2FuYWx5c2lzX2RhdGEgPSBtb2RlbF9kYXRhKGFuYWx5c2lzX2RhdGFbIWlzLm5hKGFuYWx5c2lzX2RhdGEkbW50ZF9ub3JtYWwpLF0sICdtbnRkX25vcm1hbCcpCm5ybV9tbnRkX2FuYWx5c2lzX2Zvcm11bGEgPSBjcmVhdGVfZm9ybXVsYSgnbW50ZF9ub3JtYWwnKQpucm1fbW50ZF9hbmFseXNpc19yZXN1bHQgPSBtb2RlbF9hdmVyYWdlKG5ybV9tbnRkX2FuYWx5c2lzX2Zvcm11bGEsIG5ybV9tbnRkX2FuYWx5c2lzX2RhdGEpCm5ybV9tbnRkX2FuYWx5c2lzX3Jlc3VsdF90YWJsZSA9IG1vZGVsX3N1bW1hcnkobnJtX21udGRfYW5hbHlzaXNfcmVzdWx0KQpucm1fbW50ZF9hbmFseXNpc19yZXN1bHRfdGFibGUKYGBgCgpgYGB7cn0KbnJtX21udGRfYW5hbHlzaXNfcHJlZF9wbG90ID0gcGxvdF9kcmVkZ2VfcmVzdWx0KG5ybV9tbnRkX2FuYWx5c2lzX3Jlc3VsdF90YWJsZSkKbnJtX21udGRfYW5hbHlzaXNfcHJlZF9wbG90CmBgYAoKRG8gdGhlIHJlc2lkdWFscyBzdGlsbCBjb250YWluIHNwYXRpYWwgYXV0b2NvcnJlbGF0aW9uIGZyb20gYSBmaXR0ZWQgbG0/CmBgYHtyfQpucm1fbW50ZF9sbSA9IGxtKG5ybV9tbnRkX2FuYWx5c2lzX2Zvcm11bGEsIG5ybV9tbnRkX2FuYWx5c2lzX2RhdGEpCm1vcmFuLnRlc3QobnJtX21udGRfbG0kcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25laWdoYm91cnMpKQptb3Jhbi50ZXN0KG5ybV9tbnRkX2xtJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9ubWRzX25laWdoYm91cnMpKQpgYGAKCmBgYHtyfQpucm1fbW50ZF9zcGF0aWFsX21vZGVsID0gc3BhdGlhbF9tb2RlbChucm1fbW50ZF9hbmFseXNpc19mb3JtdWxhLCBjb3JyZWxhdGlvbl9mdW5jdGlvbl9tbnRkKCkpCm1vcmFuLnRlc3QobnJtX21udGRfc3BhdGlhbF9tb2RlbCRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbmVpZ2hib3VycykpCm1vcmFuLnRlc3QobnJtX21udGRfc3BhdGlhbF9tb2RlbCRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbm1kc19uZWlnaGJvdXJzKSkKYGBgCgpgYGB7cn0KbnJtX21udGRfYW5hbHlzaXNfcHJlZF9zcGF0aWFsX3Bsb3QgPSBwbG90X3NwYXRpYWxfcmVzdWx0KG5ybV9tbnRkX3NwYXRpYWxfbW9kZWwpCm5ybV9tbnRkX2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90CmBgYAoKIyMgR2FwZSB3aWR0aCAtIEZEaXYKIyMjIFN0YW5kYXJkaXNlZApgYGB7cn0Kc3RkX2dhcGVfZmRpdl9hbmFseXNpc19nZW9fcGxvdCA9IGdlb21fbWFwX3N0ZChnZW9tX3NmKGRhdGEgPSBhbmFseXNpc19kYXRhLCBhZXMoY29sb3IgPSBiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQsIGdlb21ldHJ5ID0gZ2VvbWV0cnkpKSwgJ0JlYWsgV2lkdGggRkRpdicpCnN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfZ2VvX3Bsb3QKYGBgCgoKYGBge3J9CnN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfZGF0YSA9IG1vZGVsX2RhdGEoYW5hbHlzaXNfZGF0YVshaXMubmEoYW5hbHlzaXNfZGF0YSRiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQpLF0sICdiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQnKQpzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX2Zvcm11bGEgPSBjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJykKc3RkX2dhcGVfZmRpdl9hbmFseXNpc19yZXN1bHQgPSBtb2RlbF9hdmVyYWdlKHN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfZm9ybXVsYSwgc3RkX2dhcGVfZmRpdl9hbmFseXNpc19kYXRhKQpzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX3Jlc3VsdF90YWJsZSA9IG1vZGVsX3N1bW1hcnkoc3RkX2dhcGVfZmRpdl9hbmFseXNpc19yZXN1bHQpCnN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfcmVzdWx0X3RhYmxlCmBgYAoKYGBge3J9CnN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ID0gcGxvdF9kcmVkZ2VfcmVzdWx0KHN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfcmVzdWx0X3RhYmxlKQpzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdApgYGAKCkRvIHRoZSByZXNpZHVhbHMgc3RpbGwgY29udGFpbiBzcGF0aWFsIGF1dG9jb3JyZWxhdGlvbiBmcm9tIGEgZml0dGVkIGxtPwpgYGB7cn0Kc3RkX2dhcGVfZmRpdl9sbSA9IGxtKHN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfZm9ybXVsYSwgc3RkX2dhcGVfZmRpdl9hbmFseXNpc19kYXRhKQptb3Jhbi50ZXN0KHN0ZF9nYXBlX2ZkaXZfbG0kcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25laWdoYm91cnMpKQptb3Jhbi50ZXN0KHN0ZF9nYXBlX2ZkaXZfbG0kcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CnN0ZF9nYXBlX2ZkaXZfc3BhdGlhbF9tb2RlbCA9IHNwYXRpYWxfbW9kZWwoc3RkX2dhcGVfZmRpdl9hbmFseXNpc19mb3JtdWxhLCBjb3JyZWxhdGlvbl9mdW5jdGlvbl9mZGl2KCkpCm1vcmFuLnRlc3Qoc3RkX2dhcGVfZmRpdl9zcGF0aWFsX21vZGVsJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKbW9yYW4udGVzdChzdGRfZ2FwZV9mZGl2X3NwYXRpYWxfbW9kZWwkcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CnN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfcHJlZF9zcGF0aWFsX3Bsb3QgPSBwbG90X3NwYXRpYWxfcmVzdWx0KHN0ZF9nYXBlX2ZkaXZfc3BhdGlhbF9tb2RlbCkKc3RkX2dhcGVfZmRpdl9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdApgYGAKCiMjIyBOb3JtYWxpc2VkCmBgYHtyfQpucm1fZ2FwZV9mZGl2X2FuYWx5c2lzX2dlb19wbG90ID0gZ2VvbV9tYXBfbnJtKGdlb21fc2YoZGF0YSA9IGFuYWx5c2lzX2RhdGEsIGFlcyhjb2xvciA9IGJlYWtfd2lkdGhfZmRpdl9ub3JtYWwsIGdlb21ldHJ5ID0gZ2VvbWV0cnkpKSwgJ0JlYWsgV2lkdGggRkRpdicpCm5ybV9nYXBlX2ZkaXZfYW5hbHlzaXNfZ2VvX3Bsb3QKYGBgCgoKYGBge3J9Cm5ybV9nYXBlX2ZkaXZfYW5hbHlzaXNfZGF0YSA9IG1vZGVsX2RhdGEoYW5hbHlzaXNfZGF0YVshaXMubmEoYW5hbHlzaXNfZGF0YSRiZWFrX3dpZHRoX2ZkaXZfbm9ybWFsKSxdLCAnYmVha193aWR0aF9mZGl2X25vcm1hbCcpCm5ybV9nYXBlX2ZkaXZfYW5hbHlzaXNfZm9ybXVsYSA9IGNyZWF0ZV9mb3JtdWxhKCdiZWFrX3dpZHRoX2ZkaXZfbm9ybWFsJykKbnJtX2dhcGVfZmRpdl9hbmFseXNpc19yZXN1bHQgPSBtb2RlbF9hdmVyYWdlKG5ybV9nYXBlX2ZkaXZfYW5hbHlzaXNfZm9ybXVsYSwgbnJtX2dhcGVfZmRpdl9hbmFseXNpc19kYXRhKQpucm1fZ2FwZV9mZGl2X2FuYWx5c2lzX3Jlc3VsdF90YWJsZSA9IG1vZGVsX3N1bW1hcnkobnJtX2dhcGVfZmRpdl9hbmFseXNpc19yZXN1bHQpCm5ybV9nYXBlX2ZkaXZfYW5hbHlzaXNfcmVzdWx0X3RhYmxlCmBgYAoKYGBge3J9Cm5ybV9nYXBlX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ID0gcGxvdF9kcmVkZ2VfcmVzdWx0KG5ybV9nYXBlX2ZkaXZfYW5hbHlzaXNfcmVzdWx0X3RhYmxlKQpucm1fZ2FwZV9mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdApgYGAKCkRvIHRoZSByZXNpZHVhbHMgc3RpbGwgY29udGFpbiBzcGF0aWFsIGF1dG9jb3JyZWxhdGlvbiBmcm9tIGEgZml0dGVkIGxtPwpgYGB7cn0KbnJtX2dhcGVfZmRpdl9sbSA9IGxtKG5ybV9nYXBlX2ZkaXZfYW5hbHlzaXNfZm9ybXVsYSwgbnJtX2dhcGVfZmRpdl9hbmFseXNpc19kYXRhKQptb3Jhbi50ZXN0KG5ybV9nYXBlX2ZkaXZfbG0kcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25laWdoYm91cnMpKQptb3Jhbi50ZXN0KG5ybV9nYXBlX2ZkaXZfbG0kcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9Cm5ybV9nYXBlX2ZkaXZfc3BhdGlhbF9tb2RlbCA9IHNwYXRpYWxfbW9kZWwobnJtX2dhcGVfZmRpdl9hbmFseXNpc19mb3JtdWxhLCBjb3JyZWxhdGlvbl9mdW5jdGlvbl9mZGl2KCkpCm1vcmFuLnRlc3QobnJtX2dhcGVfZmRpdl9zcGF0aWFsX21vZGVsJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKbW9yYW4udGVzdChucm1fZ2FwZV9mZGl2X3NwYXRpYWxfbW9kZWwkcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9Cm5ybV9nYXBlX2ZkaXZfYW5hbHlzaXNfcHJlZF9zcGF0aWFsX3Bsb3QgPSBwbG90X3NwYXRpYWxfcmVzdWx0KG5ybV9nYXBlX2ZkaXZfc3BhdGlhbF9tb2RlbCkKbnJtX2dhcGVfZmRpdl9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdApgYGAKCiMjIEhXSSAtIEZEaXYKIyMjIFN0YW5kYXJkaXNlZApgYGB7cn0Kc3RkX2h3aV9mZGl2X2FuYWx5c2lzX2dlb19wbG90ID0gZ2VvbV9tYXBfc3RkKGdlb21fc2YoZGF0YSA9IGFuYWx5c2lzX2RhdGEsIGFlcyhjb2xvciA9IGh3aV9mZGl2X3N0YW5kYXJkLCBnZW9tZXRyeSA9IGdlb21ldHJ5KSksICdIV0kgRkRpdicpCnN0ZF9od2lfZmRpdl9hbmFseXNpc19nZW9fcGxvdApgYGAKCgoKYGBge3J9CnN0ZF9od2lfZmRpdl9hbmFseXNpc19kYXRhID0gbW9kZWxfZGF0YShhbmFseXNpc19kYXRhWyFpcy5uYShhbmFseXNpc19kYXRhJGh3aV9mZGl2X3N0YW5kYXJkKSxdLCAnaHdpX2ZkaXZfc3RhbmRhcmQnKQpzdGRfaHdpX2ZkaXZfYW5hbHlzaXNfZm9ybXVsYSA9IGNyZWF0ZV9mb3JtdWxhKCdod2lfZmRpdl9zdGFuZGFyZCcpCnN0ZF9od2lfZmRpdl9hbmFseXNpc19yZXN1bHQgPSBtb2RlbF9hdmVyYWdlKHN0ZF9od2lfZmRpdl9hbmFseXNpc19mb3JtdWxhLCBzdGRfaHdpX2ZkaXZfYW5hbHlzaXNfZGF0YSkKc3RkX2h3aV9mZGl2X2FuYWx5c2lzX3Jlc3VsdF90YWJsZSA9IG1vZGVsX3N1bW1hcnkoc3RkX2h3aV9mZGl2X2FuYWx5c2lzX3Jlc3VsdCkKc3RkX2h3aV9mZGl2X2FuYWx5c2lzX3Jlc3VsdF90YWJsZQpgYGAKCmBgYHtyfQpzdGRfaHdpX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ID0gcGxvdF9kcmVkZ2VfcmVzdWx0KHN0ZF9od2lfZmRpdl9hbmFseXNpc19yZXN1bHRfdGFibGUpCnN0ZF9od2lfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QKYGBgCgpgYGB7cn0Kc3RkX2h3aV9mZGl2X2xtID0gbG0oc3RkX2h3aV9mZGl2X2FuYWx5c2lzX2Zvcm11bGEsIHN0ZF9od2lfZmRpdl9hbmFseXNpc19kYXRhKQptb3Jhbi50ZXN0KHN0ZF9od2lfZmRpdl9sbSRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbmVpZ2hib3VycykpCm1vcmFuLnRlc3Qoc3RkX2h3aV9mZGl2X2xtJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9ubWRzX25laWdoYm91cnMpKQpgYGAKCmBgYHtyfQpzdGRfaHdpX2ZkaXZfc3BhdGlhbF9tb2RlbCA9IHNwYXRpYWxfbW9kZWwoc3RkX2h3aV9mZGl2X2FuYWx5c2lzX2Zvcm11bGEsIGNvcnJlbGF0aW9uX2Z1bmN0aW9uX2ZkaXYoKSkKbW9yYW4udGVzdChzdGRfaHdpX2ZkaXZfc3BhdGlhbF9tb2RlbCRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbmVpZ2hib3VycykpCm1vcmFuLnRlc3Qoc3RkX2h3aV9mZGl2X3NwYXRpYWxfbW9kZWwkcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CnN0ZF9od2lfZmRpdl9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdCA9IHBsb3Rfc3BhdGlhbF9yZXN1bHQoc3RkX2h3aV9mZGl2X3NwYXRpYWxfbW9kZWwpCnN0ZF9od2lfZmRpdl9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdApgYGAKCiMjIyBOb3JtYWxpc2VkCmBgYHtyfQpucm1faHdpX2ZkaXZfYW5hbHlzaXNfZ2VvX3Bsb3QgPSBnZW9tX21hcF9ucm0oZ2VvbV9zZihkYXRhID0gYW5hbHlzaXNfZGF0YSwgYWVzKGNvbG9yID0gaHdpX2ZkaXZfbm9ybWFsLCBnZW9tZXRyeSA9IGdlb21ldHJ5KSksICdIV0kgRkRpdicpCm5ybV9od2lfZmRpdl9hbmFseXNpc19nZW9fcGxvdApgYGAKCgpgYGB7cn0KbnJtX2h3aV9mZGl2X2FuYWx5c2lzX2RhdGEgPSBtb2RlbF9kYXRhKGFuYWx5c2lzX2RhdGFbIWlzLm5hKGFuYWx5c2lzX2RhdGEkaHdpX2ZkaXZfbm9ybWFsKSxdLCAnaHdpX2ZkaXZfbm9ybWFsJykKbnJtX2h3aV9mZGl2X2FuYWx5c2lzX2Zvcm11bGEgPSBjcmVhdGVfZm9ybXVsYSgnaHdpX2ZkaXZfbm9ybWFsJykKbnJtX2h3aV9mZGl2X2FuYWx5c2lzX3Jlc3VsdCA9IG1vZGVsX2F2ZXJhZ2UobnJtX2h3aV9mZGl2X2FuYWx5c2lzX2Zvcm11bGEsIG5ybV9od2lfZmRpdl9hbmFseXNpc19kYXRhKQpucm1faHdpX2ZkaXZfYW5hbHlzaXNfcmVzdWx0X3RhYmxlID0gbW9kZWxfc3VtbWFyeShucm1faHdpX2ZkaXZfYW5hbHlzaXNfcmVzdWx0KQpucm1faHdpX2ZkaXZfYW5hbHlzaXNfcmVzdWx0X3RhYmxlCmBgYAoKYGBge3J9Cm5ybV9od2lfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QgPSBwbG90X2RyZWRnZV9yZXN1bHQobnJtX2h3aV9mZGl2X2FuYWx5c2lzX3Jlc3VsdF90YWJsZSkKbnJtX2h3aV9mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdApgYGAKCmBgYHtyfQpucm1faHdpX2ZkaXZfbG0gPSBsbShucm1faHdpX2ZkaXZfYW5hbHlzaXNfZm9ybXVsYSwgbnJtX2h3aV9mZGl2X2FuYWx5c2lzX2RhdGEpCm1vcmFuLnRlc3QobnJtX2h3aV9mZGl2X2xtJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKbW9yYW4udGVzdChucm1faHdpX2ZkaXZfbG0kcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9Cm5ybV9od2lfZmRpdl9zcGF0aWFsX21vZGVsID0gc3BhdGlhbF9tb2RlbChucm1faHdpX2ZkaXZfYW5hbHlzaXNfZm9ybXVsYSwgY29ycmVsYXRpb25fZnVuY3Rpb25fZmRpdigpKQptb3Jhbi50ZXN0KG5ybV9od2lfZmRpdl9zcGF0aWFsX21vZGVsJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKbW9yYW4udGVzdChucm1faHdpX2ZkaXZfc3BhdGlhbF9tb2RlbCRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbm1kc19uZWlnaGJvdXJzKSkKYGBgCgpgYGB7cn0KbnJtX2h3aV9mZGl2X2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90ID0gcGxvdF9zcGF0aWFsX3Jlc3VsdChucm1faHdpX2ZkaXZfc3BhdGlhbF9tb2RlbCkKbnJtX2h3aV9mZGl2X2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90CmBgYAoKIyMgTWFzcyAtIEZEaXYKIyMjIFN0YW5kYXJkaXNlZApgYGB7cn0Kc3RkX21hc3NfZmRpdl9hbmFseXNpc19nZW9fcGxvdCA9IGdlb21fbWFwX3N0ZChnZW9tX3NmKGRhdGEgPSBhbmFseXNpc19kYXRhLCBhZXMoY29sb3IgPSBtYXNzX2ZkaXZfc3RhbmRhcmQsIGdlb21ldHJ5ID0gZ2VvbWV0cnkpKSwgJ01hc3MgRkRpdicpCnN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfZ2VvX3Bsb3QKYGBgCgoKYGBge3J9CnN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfZGF0YSA9IG1vZGVsX2RhdGEoYW5hbHlzaXNfZGF0YVshaXMubmEoYW5hbHlzaXNfZGF0YSRtYXNzX2ZkaXZfc3RhbmRhcmQpLF0sICdtYXNzX2ZkaXZfc3RhbmRhcmQnKQpzdGRfbWFzc19mZGl2X2FuYWx5c2lzX2Zvcm11bGEgPSBjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X3N0YW5kYXJkJykKc3RkX21hc3NfZmRpdl9hbmFseXNpc19yZXN1bHQgPC0gbW9kZWxfYXZlcmFnZShzdGRfbWFzc19mZGl2X2FuYWx5c2lzX2Zvcm11bGEsIHN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfZGF0YSkKc3RkX21hc3NfZmRpdl9hbmFseXNpc19yZXN1bHRfdGFibGUgPSBtb2RlbF9zdW1tYXJ5KHN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfcmVzdWx0KQpzdGRfbWFzc19mZGl2X2FuYWx5c2lzX3Jlc3VsdF90YWJsZQpgYGAKCmBgYHtyfQpzdGRfbWFzc19mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdCA9IHBsb3RfZHJlZGdlX3Jlc3VsdChzdGRfbWFzc19mZGl2X2FuYWx5c2lzX3Jlc3VsdF90YWJsZSkKc3RkX21hc3NfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QKYGBgCgpgYGB7cn0Kc3RkX21hc3NfZmRpdl9sbSA9IGxtKHN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfZm9ybXVsYSwgc3RkX21hc3NfZmRpdl9hbmFseXNpc19kYXRhKQptb3Jhbi50ZXN0KHN0ZF9tYXNzX2ZkaXZfbG0kcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25laWdoYm91cnMpKQptb3Jhbi50ZXN0KHN0ZF9tYXNzX2ZkaXZfbG0kcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CnN0ZF9tYXNzX2ZkaXZfc3BhdGlhbF9tb2RlbCA9IHNwYXRpYWxfbW9kZWwoc3RkX21hc3NfZmRpdl9hbmFseXNpc19mb3JtdWxhLCBjb3JyZWxhdGlvbl9mdW5jdGlvbl9mZGl2KCkpCm1vcmFuLnRlc3Qoc3RkX21hc3NfZmRpdl9zcGF0aWFsX21vZGVsJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKbW9yYW4udGVzdChzdGRfbWFzc19mZGl2X3NwYXRpYWxfbW9kZWwkcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CnN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfcHJlZF9zcGF0aWFsX3Bsb3QgPSBwbG90X3NwYXRpYWxfcmVzdWx0KHN0ZF9tYXNzX2ZkaXZfc3BhdGlhbF9tb2RlbCkKc3RkX21hc3NfZmRpdl9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdApgYGAKCgojIyMgTm9ybWFsaXNlZApgYGB7cn0KbnJtX21hc3NfZmRpdl9hbmFseXNpc19nZW9fcGxvdCA9IGdlb21fbWFwX25ybShnZW9tX3NmKGRhdGEgPSBhbmFseXNpc19kYXRhLCBhZXMoY29sb3IgPSBtYXNzX2ZkaXZfbm9ybWFsLCBnZW9tZXRyeSA9IGdlb21ldHJ5KSksICdNYXNzIEZEaXYnKQpucm1fbWFzc19mZGl2X2FuYWx5c2lzX2dlb19wbG90CmBgYAoKCmBgYHtyfQpucm1fbWFzc19mZGl2X2FuYWx5c2lzX2RhdGEgPSBtb2RlbF9kYXRhKGFuYWx5c2lzX2RhdGFbIWlzLm5hKGFuYWx5c2lzX2RhdGEkbWFzc19mZGl2X25vcm1hbCksXSwgJ21hc3NfZmRpdl9ub3JtYWwnKQpucm1fbWFzc19mZGl2X2FuYWx5c2lzX2Zvcm11bGEgPSBjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X25vcm1hbCcpCm5ybV9tYXNzX2ZkaXZfYW5hbHlzaXNfcmVzdWx0ID0gbW9kZWxfYXZlcmFnZShucm1fbWFzc19mZGl2X2FuYWx5c2lzX2Zvcm11bGEsIG5ybV9tYXNzX2ZkaXZfYW5hbHlzaXNfZGF0YSkKbnJtX21hc3NfZmRpdl9hbmFseXNpc19yZXN1bHRfdGFibGUgPSBtb2RlbF9zdW1tYXJ5KG5ybV9tYXNzX2ZkaXZfYW5hbHlzaXNfcmVzdWx0KQpucm1fbWFzc19mZGl2X2FuYWx5c2lzX3Jlc3VsdF90YWJsZQpgYGAKCmBgYHtyfQpucm1fbWFzc19mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdCA9IHBsb3RfZHJlZGdlX3Jlc3VsdChucm1fbWFzc19mZGl2X2FuYWx5c2lzX3Jlc3VsdF90YWJsZSkKbnJtX21hc3NfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QKYGBgCgpgYGB7cn0KbnJtX21hc3NfZmRpdl9sbSA9IGxtKG5ybV9tYXNzX2ZkaXZfYW5hbHlzaXNfZm9ybXVsYSwgbnJtX21hc3NfZmRpdl9hbmFseXNpc19kYXRhKQptb3Jhbi50ZXN0KG5ybV9tYXNzX2ZkaXZfbG0kcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25laWdoYm91cnMpKQptb3Jhbi50ZXN0KG5ybV9tYXNzX2ZkaXZfbG0kcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9Cm5ybV9tYXNzX2ZkaXZfc3BhdGlhbF9tb2RlbCA9IHNwYXRpYWxfbW9kZWwobnJtX21hc3NfZmRpdl9hbmFseXNpc19mb3JtdWxhLCBjb3JyZWxhdGlvbl9mdW5jdGlvbl9mZGl2KCkpCm1vcmFuLnRlc3QobnJtX21hc3NfZmRpdl9zcGF0aWFsX21vZGVsJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKbW9yYW4udGVzdChucm1fbWFzc19mZGl2X3NwYXRpYWxfbW9kZWwkcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9Cm5ybV9tYXNzX2ZkaXZfYW5hbHlzaXNfcHJlZF9zcGF0aWFsX3Bsb3QgPSBwbG90X3NwYXRpYWxfcmVzdWx0KG5ybV9tYXNzX2ZkaXZfc3BhdGlhbF9tb2RlbCkKbnJtX21hc3NfZmRpdl9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdApgYGAKCiMgQ3JlYXRlIHBsb3Qgb2YgZGlmZmVyZW5jZXMgaW4gcHJvY2VzcyByZXNwb25zZQoKCmBgYHtyfQpmaWcgPSBmdW5jdGlvbih0cmFpdF9uYW1lLCByZXNwb25zZV90eXBlLCBnZW9fcGxvdCwgcHJlZGljdG9yX3Bsb3QpIHsKICBncmlkLmFycmFuZ2UoCiAgICBhcnJhbmdlR3JvYihncmlkOjp0ZXh0R3JvYih0cmFpdF9uYW1lLCB4ID0gMC4wMiwgaGp1c3QgPSAwLCBncD1ncGFyKGZvbnRmYWNlPSJib2xkIikpKSwKICAgIGFycmFuZ2VHcm9iKGdyaWQ6OnRleHRHcm9iKHBhc3RlKCdBKScsIHJlc3BvbnNlX3R5cGUsJ3Jlc3BvbnNlIGJ5IGNpdHknKSwgeCA9IDAuMDIsIGhqdXN0ID0gMCwgZ3A9Z3Bhcihmb250ZmFjZT0iYm9sZCIpKSksCiAgICBnZW9fcGxvdCwKICAgIGFycmFuZ2VHcm9iKGdyaWQ6OnRleHRHcm9iKHBhc3RlKCdCKScsIHJlc3BvbnNlX3R5cGUsICdyZXNwb25zZSBwcmVkaWN0b3JzJyksIHggPSAwLjAyLCBoanVzdCA9IDAsIGdwPWdwYXIoZm9udGZhY2U9ImJvbGQiKSkpLAogICAgcHJlZGljdG9yX3Bsb3QgKyB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAnYm90dG9tJykgKyBndWlkZXMoY29sb3VyID0gZ3VpZGVfbGVnZW5kKG5yb3c9MiwgYnlyb3c9VFJVRSkpLAogICAgaGVpZ2h0cyA9IGMoMC4yNSwgMC4yNSwgNCwgMC4yNSwgMyksCiAgICBucm93ID0gNQogICkKfQoKCmZpZygnTU5URCcsICdTdGFuZGFyZGlzZWQnLCBzdGRfbW50ZF9hbmFseXNpc19nZW9fcGxvdCwgc3RkX21udGRfYW5hbHlzaXNfcHJlZF9wbG90KQpgYGAKIyMgTU5URApgYGB7cn0KanBlZyhmaWxlbmFtZShGSUdVUkVTX09VVFBVVF9ESVIsICdmaWd1cmUyX3N0ZF9tbnRkLmpwZycpLCB3aWR0aCA9IDIwMCwgaGVpZ2h0ID0gMjIwLCB1bml0cyA9ICdtbScsIHJlcyA9IDMwMCkKZ3JpZC5hcnJhbmdlKAogIGFycmFuZ2VHcm9iKGZpZygnTU5URCcsICdTdGFuZGFyZGlzZWQnLCBzdGRfbW50ZF9hbmFseXNpc19nZW9fcGxvdCwgc3RkX21udGRfYW5hbHlzaXNfcHJlZF9wbG90KSksCiAgbmNvbCA9IDEKICApCmRldi5vZmYoKQpgYGAKCgpgYGB7cn0KanBlZyhmaWxlbmFtZShGSUdVUkVTX09VVFBVVF9ESVIsICdmaWd1cmUyX25ybV9tbnRkLmpwZycpLCB3aWR0aCA9IDIwMCwgaGVpZ2h0ID0gMjIwLCB1bml0cyA9ICdtbScsIHJlcyA9IDMwMCkKZ3JpZC5hcnJhbmdlKAogIGFycmFuZ2VHcm9iKGZpZygnTU5URCcsICdOb3JtYWxpc2VkJywgbnJtX21udGRfYW5hbHlzaXNfZ2VvX3Bsb3QsIG5ybV9tbnRkX2FuYWx5c2lzX3ByZWRfcGxvdCkpLAogIG5jb2wgPSAxCiAgKQpkZXYub2ZmKCkKYGBgCgojIyBCZWFrIFdpZHRoCmBgYHtyfQpqcGVnKGZpbGVuYW1lKEZJR1VSRVNfT1VUUFVUX0RJUiwgJ2ZpZ3VyZTJfc3RkX2JlYWtfd2lkdGguanBnJyksIHdpZHRoID0gMjAwLCBoZWlnaHQgPSAyMjAsIHVuaXRzID0gJ21tJywgcmVzID0gMzAwKQpncmlkLmFycmFuZ2UoCiAgYXJyYW5nZUdyb2IoZmlnKCdCZWFrIFdpZHRoJywgJ1N0YW5kYXJkaXNlZCcsIHN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfZ2VvX3Bsb3QsIHN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90KSksCiAgbmNvbCA9IDEKICApCmRldi5vZmYoKQpgYGAKCgpgYGB7cn0KanBlZyhmaWxlbmFtZShGSUdVUkVTX09VVFBVVF9ESVIsICdmaWd1cmUyX25ybV9iZWFrX3dpZHRoLmpwZycpLCB3aWR0aCA9IDIwMCwgaGVpZ2h0ID0gMjIwLCB1bml0cyA9ICdtbScsIHJlcyA9IDMwMCkKZ3JpZC5hcnJhbmdlKAogIGFycmFuZ2VHcm9iKGZpZygnQmVhayBXaWR0aCcsICdOb3JtYWxpc2VkJywgbnJtX2dhcGVfZmRpdl9hbmFseXNpc19nZW9fcGxvdCwgbnJtX2dhcGVfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QpKSwKICBuY29sID0gMQogICkKZGV2Lm9mZigpCmBgYAoKIyMgSFdJCmBgYHtyfQpqcGVnKGZpbGVuYW1lKEZJR1VSRVNfT1VUUFVUX0RJUiwgJ2ZpZ3VyZTJfc3RkX2h3aS5qcGcnKSwgd2lkdGggPSAyMDAsIGhlaWdodCA9IDIyMCwgdW5pdHMgPSAnbW0nLCByZXMgPSAzMDApCmdyaWQuYXJyYW5nZSgKICBhcnJhbmdlR3JvYihmaWcoJ0hXSSAoSGFuZC13aW5nIEluZGV4KScsICdTdGFuZGFyZGlzZWQnLCBzdGRfaHdpX2ZkaXZfYW5hbHlzaXNfZ2VvX3Bsb3QsIHN0ZF9od2lfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QpKSwKICBuY29sID0gMQogICkKZGV2Lm9mZigpCmBgYAoKCmBgYHtyfQpqcGVnKGZpbGVuYW1lKEZJR1VSRVNfT1VUUFVUX0RJUiwgJ2ZpZ3VyZTJfbnJtX2h3aS5qcGcnKSwgd2lkdGggPSAyMDAsIGhlaWdodCA9IDIyMCwgdW5pdHMgPSAnbW0nLCByZXMgPSAzMDApCmdyaWQuYXJyYW5nZSgKICBhcnJhbmdlR3JvYihmaWcoJ0hXSSAoSGFuZC13aW5nIEluZGV4KScsICdOb3JtYWxpc2VkJywgbnJtX2h3aV9mZGl2X2FuYWx5c2lzX2dlb19wbG90LCBucm1faHdpX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90KSksCiAgbmNvbCA9IDEKICApCmRldi5vZmYoKQpgYGAKCiMjIE1hc3MKYGBge3J9CmpwZWcoZmlsZW5hbWUoRklHVVJFU19PVVRQVVRfRElSLCAnZmlndXJlMl9zdGRfbWFzcy5qcGcnKSwgd2lkdGggPSAyMDAsIGhlaWdodCA9IDIyMCwgdW5pdHMgPSAnbW0nLCByZXMgPSAzMDApCmdyaWQuYXJyYW5nZSgKICBhcnJhbmdlR3JvYihmaWcoJ01hc3MnLCAnU3RhbmRhcmRpc2VkJywgc3RkX21hc3NfZmRpdl9hbmFseXNpc19nZW9fcGxvdCwgc3RkX21hc3NfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QpKSwKICBuY29sID0gMQogICkKZGV2Lm9mZigpCmBgYAoKCmBgYHtyfQpqcGVnKGZpbGVuYW1lKEZJR1VSRVNfT1VUUFVUX0RJUiwgJ2ZpZ3VyZTJfbnJtX21hc3MuanBnJyksIHdpZHRoID0gMjAwLCBoZWlnaHQgPSAyMjAsIHVuaXRzID0gJ21tJywgcmVzID0gMzAwKQpncmlkLmFycmFuZ2UoCiAgYXJyYW5nZUdyb2IoZmlnKCdNYXNzJywgJ05vcm1hbGlzZWQnLCBucm1fbWFzc19mZGl2X2FuYWx5c2lzX2dlb19wbG90LCBucm1fbWFzc19mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdCkpLAogIG5jb2wgPSAxCiAgKQpkZXYub2ZmKCkKYGBgCgojIENvbXBhcmUgdG8gc3BhdGlhbCBtb2RlbAoKYGBge3J9CnBsb3RfZ3JpZCgKICBwbG90X2dyaWQoCiAgICBnZ2RyYXcoKSArIAogICAgZHJhd19sYWJlbCgKICAgICAgIlNwYXRpYWwgTW9kZWwgKHN0YW5kYXJkaXNlZCkiLAogICAgICBmb250ZmFjZSA9ICdib2xkJywKICAgICAgeCA9IDAsCiAgICAgIGhqdXN0ID0gMAogICAgKSwKICAgIGdnZHJhdygpICsgCiAgICBkcmF3X2xhYmVsKAogICAgICAiU3BhdGlhbCBNb2RlbCAobm9ybWFsaXNlZCkiLAogICAgICBmb250ZmFjZSA9ICdib2xkJywKICAgICAgeCA9IDAsCiAgICAgIGhqdXN0ID0gMAogICAgKSwKICAgIGdnZHJhdygpICsgCiAgICBkcmF3X2xhYmVsKAogICAgICAiRHJlZGdlIFJlc3VsdCAoc3RhbmRhcmRpc2VkKSIsCiAgICAgIGZvbnRmYWNlID0gJ2JvbGQnLAogICAgICB4ID0gMCwKICAgICAgaGp1c3QgPSAwCiAgICApLAogICAgZ2dkcmF3KCkgKyAKICAgIGRyYXdfbGFiZWwoCiAgICAgICJEcmVkZ2UgUmVzdWx0IChub3JtYWxpc2VkKSIsCiAgICAgIGZvbnRmYWNlID0gJ2JvbGQnLAogICAgICB4ID0gMCwKICAgICAgaGp1c3QgPSAwCiAgICApLAogICAgbnJvdyA9IDEKICApLAogIHBsb3RfZ3JpZCgKICAgIHN0ZF9tbnRkX2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0zLCAzKSkgKyB5bGFiKCcnKSwgCiAgICBucm1fbW50ZF9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdCArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbj0ibm9uZSIpICsgc2NhbGVfeF9jb250aW51b3VzKG5hbWUgPSAnJywgbGltaXRzID0gYygtMSwgMSkpICsgeWxhYignJyksIAogICAgc3RkX21udGRfYW5hbHlzaXNfcHJlZF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0zLCAzKSkgKyB5bGFiKCcnKSwgCiAgICBucm1fbW50ZF9hbmFseXNpc19wcmVkX3Bsb3QgKyB0aGVtZShsZWdlbmQucG9zaXRpb249Im5vbmUiKSArIHNjYWxlX3hfY29udGludW91cyhuYW1lID0gJycsIGxpbWl0cyA9IGMoLTEsIDEpKSArIHlsYWIoJycpLCAKICAgIG5yb3cgPSAxCiAgKSArIGRyYXdfbGFiZWwoIk1OVEQiLCBzaXplID0gMTYsIGFuZ2xlID0gOTAsIHggPSAwLjAxLCB5ID0gMC41KSwKICBwbG90X2dyaWQoCiAgICBzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0zLCAzKSkgKyB5bGFiKCcnKSwgCiAgICBucm1fZ2FwZV9mZGl2X2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0xLCAxKSkgKyB5bGFiKCcnKSwgCiAgICBzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdCArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbj0ibm9uZSIpICsgc2NhbGVfeF9jb250aW51b3VzKG5hbWUgPSAnJywgbGltaXRzID0gYygtMywgMykpICsgeWxhYignJyksICAKICAgIG5ybV9nYXBlX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0xLCAxKSkgKyB5bGFiKCcnKSwgCiAgICBucm93ID0gMQogICkgKyBkcmF3X2xhYmVsKCJCZWFrIFdpZHRoIiwgc2l6ZSA9IDE2LCBhbmdsZSA9IDkwLCB4ID0gMC4wMSwgeSA9IDAuNSksCiAgcGxvdF9ncmlkKAogICAgc3RkX2h3aV9mZGl2X2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0zLCAzKSkgKyB5bGFiKCcnKSwgCiAgICBucm1faHdpX2ZkaXZfYW5hbHlzaXNfcHJlZF9zcGF0aWFsX3Bsb3QgKyB0aGVtZShsZWdlbmQucG9zaXRpb249Im5vbmUiKSArIHNjYWxlX3hfY29udGludW91cyhuYW1lID0gJycsIGxpbWl0cyA9IGMoLTEsIDEpKSArIHlsYWIoJycpLCAKICAgIHN0ZF9od2lfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QgKyB0aGVtZShsZWdlbmQucG9zaXRpb249Im5vbmUiKSArIHNjYWxlX3hfY29udGludW91cyhuYW1lID0gJycsIGxpbWl0cyA9IGMoLTMsIDMpKSArIHlsYWIoJycpLCAgCiAgICBucm1faHdpX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0xLCAxKSkgKyB5bGFiKCcnKSwgCiAgICBucm93ID0gMQogICkgKyBkcmF3X2xhYmVsKCJIV0kiLCBzaXplID0gMTYsIGFuZ2xlID0gOTAsIHggPSAwLjAxLCB5ID0gMC41KSwKICBwbG90X2dyaWQoCiAgICBzdGRfbWFzc19mZGl2X2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0zLCAzKSkgKyB5bGFiKCcnKSwgCiAgICBucm1fbWFzc19mZGl2X2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0xLCAxKSkgKyB5bGFiKCcnKSwgCiAgICBzdGRfbWFzc19mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdCArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbj0ibm9uZSIpICsgc2NhbGVfeF9jb250aW51b3VzKG5hbWUgPSAnJywgbGltaXRzID0gYygtMywgMykpICsgeWxhYignJyksICAKICAgIG5ybV9tYXNzX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0xLCAxKSkgKyB5bGFiKCcnKSwgCiAgICBucm93ID0gMQogICkgKyBkcmF3X2xhYmVsKCJNYXNzIiwgc2l6ZSA9IDE2LCBhbmdsZSA9IDkwLCB4ID0gMC4wMSwgeSA9IDAuNSksIAogIG5yb3cgPSA1LCByZWxfaGVpZ2h0cyA9IGMoMSwgNCwgNCwgNCwgNCkKKQpnZ3NhdmUoZmlsZW5hbWUoRklHVVJFU19PVVRQVVRfRElSLCAncHJvY2Vzc19yZXNwb25zZV92c19zcGF0aWFsLmpwZycpLCB3aWR0aCA9IDQwMDAsIGhlaWdodCA9IDMyMDAsIHVuaXRzID0gJ3B4JykKYGBgCgoKCiMgQ29tcGFyZSBtZXRyaWNzIGFnYWluc3QgZWFjaCBvdGhlcgpgYGB7cn0KZ2dwbG90KGFuYWx5c2lzX2RhdGEsIGFlcyh4ID0gYmVha193aWR0aF9mZGl2X3N0YW5kYXJkLCB5ID0gbW50ZF9zdGFuZGFyZCwgY29sb3VyID0gY29yZV9yZWFsbSkpICsgCiAgZ2VvbV9wb2ludCgpICsKICB5bGFiKCJNTlREIikgKyAKICB4bGFiKCJCZWFrIFdpZHRoIEZEaXYiKSArCiAgdGhlbWVfYncoKSArIGxhYnMoY29sb3IgPSAiUmVhbG0iKQpgYGAKCmBgYHtyfQpnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBod2lfZmRpdl9zdGFuZGFyZCwgeSA9IG1udGRfc3RhbmRhcmQsIGNvbG91ciA9IGNvcmVfcmVhbG0pKSArIAogIGdlb21fcG9pbnQoKSArCiAgeWxhYigiTU5URCIpICsgCiAgeGxhYigiSFdJIEZEaXYiKSArCiAgdGhlbWVfYncoKSArIGxhYnMoY29sb3IgPSAiUmVhbG0iKQpgYGAKCmBgYHtyfQpnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBod2lfZmRpdl9zdGFuZGFyZCwgeSA9IGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCwgY29sb3VyID0gY29yZV9yZWFsbSkpICsgCiAgZ2VvbV9wb2ludCgpICsKICB5bGFiKCJCZWFrIFdpZHRoIEZEaXYiKSArIAogIHhsYWIoIkhXSSBGRGl2IikgKwogIHRoZW1lX2J3KCkgKyBsYWJzKGNvbG9yID0gIlJlYWxtIikKYGBgCgpgYGB7cn0KbW50ZF9mZGl2X2FuYWx5c2lzID0gYW5hbHlzaXNfZGF0YSAlPiUgCiAgZHBseXI6OnNlbGVjdChjaXR5X2lkLCAgbW50ZF9zdGFuZGFyZCwgaHdpX2ZkaXZfc3RhbmRhcmQsIGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCwgbWFzc19mZGl2X3N0YW5kYXJkKSAlPiUKICBsZWZ0X2pvaW4oY29tbXVuaXR5X3N1bW1hcnkpICU+JQogIG11dGF0ZSh1cmJhbl9wb29sX3BlcmMgPSB1cmJhbl9wb29sX3NpemUgKiAxMDAgLyByZWdpb25hbF9wb29sX3NpemUpCm1udGRfZmRpdl9hbmFseXNpcwpgYGAKCmBgYHtyfQpnZ3BhaXJzKG1udGRfZmRpdl9hbmFseXNpcyAlPiUgZHBseXI6OnNlbGVjdChtbnRkX3N0YW5kYXJkLCBod2lfZmRpdl9zdGFuZGFyZCwgYmVha193aWR0aF9mZGl2X3N0YW5kYXJkLCBtYXNzX2ZkaXZfc3RhbmRhcmQsIHJlZ2lvbmFsX3Bvb2xfc2l6ZSwgdXJiYW5fcG9vbF9zaXplLCB1cmJhbl9wb29sX3BlcmMpLCBjb2x1bW5MYWJlbHMgPSBjKCdNTlREJywgJ0hXSSBGRCcsICdCayBGRCcsICdNc3MgRkQnLCAnUmVnaW9uIFJpY2guJywgJ1VyYmFuIFJpY2guJywgJyUgVXJiYW4nKSkKZ2dzYXZlKGZpbGVuYW1lKEZJR1VSRVNfT1VUUFVUX0RJUiwgJ2FwcGVuZGl4X3N0YW5kYXJpc2VkX2NvcnJlbGF0aW9uLmpwZycpKQpgYGAKCiMgSW50cmFjdGlvbiB0ZXJtIGJldHdlZW4gaW50cm9kdWNlZCBzcGVjaWVzIGFuZCByZWFsbQoKYGBge3J9CmNyZWF0ZV9pbnRlcmFjdGlvbl9mb3JtdWxhID0gZnVuY3Rpb24ocmVzcG9uc2VfdmFyKSB7CiAgYXMuZm9ybXVsYShwYXN0ZShyZXNwb25zZV92YXIsICd+IGNvcmVfcmVhbG0gKiBoYXNfaW50cm9kdWNlZF9zcGVjaWVzJykpCn0KYGBgCgpgYGB7cn0KaW50ZXJhY3Rpb25fdHlwZV9sYWJlbHMgPSBmdW5jdGlvbihwKSB7CiAgZXhwbGFuYXRvcnlfbGV2ZWxzID0gYWxsX2V4cGxhbmF0b3JpZXNbYWxsX2V4cGxhbmF0b3JpZXMgJWluJSBwJGV4cGxhbmF0b3J5XQogIHAkZXhwbGFuYXRvcnkgPC0gZmFjdG9yKHAkZXhwbGFuYXRvcnksIGxldmVscyA9IGV4cGxhbmF0b3J5X2xldmVscykKICAKICBwJHR5cGUgPC0gJ0ludGVyYWN0aW9uJwogIHAkdHlwZVtwJGV4cGxhbmF0b3J5ICVpbiUgYygnY29yZV9yZWFsbU5lYXJjdGljJywgJ2NvcmVfcmVhbG1OZW90cm9waWMnLCAnY29yZV9yZWFsbUFmcm90cm9waWMnLCAnY29yZV9yZWFsbUluZG9tYWxheWFuJywgJ2NvcmVfcmVhbG1BdXN0cmFsYXNpYScpXSA8LSAnUmVhbG0nCiAgcCR0eXBlW3AkZXhwbGFuYXRvcnkgJWluJSBjKCdoYXNfaW50cm9kdWNlZF9zcGVjaWVzTm8gaW50cm9kdWNlZCBzcGVjaWVzJywgJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXNJbnRyb2R1Y2VkIHNwZWNpZXMnKV0gPC0gJ0ludHJvZHVjZWQgc3BlY2llcycKICBwCn0KYGBgCgpgYGB7cn0KcGxvdF9kcmVkZ2VfaW50ZXJhY3Rpb25fcmVzdWx0ID0gZnVuY3Rpb24ocmVzdWx0X3RhYmxlLCBtdSA9IDApIHsKICBwID0gcmVzdWx0X3RhYmxlW3Jlc3VsdF90YWJsZSRtb2RlbCA9PSAnZnVsbCcsXQogIHAgPSBpbnRlcmFjdGlvbl90eXBlX2xhYmVscyhwKQoKICBnZ3Bsb3QocCwgYWVzKHkgPSBleHBsYW5hdG9yeSwgeCA9IGVzdGltYXRlLCBjb2xvdXIgPSB0eXBlKSkgKyAKICAgIGdlb21fbGluZSgpICsKICAgIGdlb21fcG9pbnQoKSArCiAgICBnZW9tX2Vycm9yYmFyKGFlcyh4bWluPWVzdGltYXRlLWVycm9yLCB4bWF4PWVzdGltYXRlK2Vycm9yKSwgd2lkdGg9LjIsCiAgICAgICAgICAgICAgICAgICBwb3NpdGlvbj1wb3NpdGlvbl9kb2RnZSgwLjA1KSkgKwogICAgc2NhbGVfeV9kaXNjcmV0ZSgKICAgICAgbGltaXRzID0gcmV2KGxldmVscyhwJGV4cGxhbmF0b3J5KSksIAogICAgICBsYWJlbHMgPSBleHBsYW5hdG9yeV9sYWJlbHMpICsKICAgIHNjYWxlX2NvbG91cl9tYW51YWwoCiAgICAgIHZhbHVlcyA9IGMocmVhbG1fY29sb3VyLCBpbnRlcmFjdGlvbl9jb2xvdXIsIGludHJvZHVjZWRfc3BlY2llc19jb2xvdXIpLCAKICAgICAgYnJlYWtzID0gYygnUmVhbG0nLCAnSW50ZXJhY3Rpb24nLCAnSW50cm9kdWNlZCBzcGVjaWVzJykpICsKICAgIHRoZW1lX2J3KCkgKwogICAgZ2VvbV92bGluZSh4aW50ZXJjZXB0PW11LCBsaW5ldHlwZT0iZG90dGVkIikgKwogICAgZ3VpZGVzKGNvbG91cj1ndWlkZV9sZWdlbmQodGl0bGU9IlByZWRpY3RvciB0eXBlIikpICsgeGxhYignRGlmZmVyZW5jZSBpbiByZXNwb25zZSBmcm9tIDBcbmhhYml0YXQgZmlsdGVyaW5nICg8IDApIGFuZCBjb21wZXRpdGl2ZSBpbnRlcmFjdGlvbnMgKD4gMClcbsKxIFN0YW5kYXJkIEVycm9yJykgKyB5bGFiKCdQcmVkaWN0b3InKSArCiAgICB0aGVtZShsZWdlbmQuanVzdGlmaWNhdGlvbiA9ICJ0b3AiKQp9CmBgYAoKIyMgTU5URAoKIyMjIFN0YW5kYXJkaXNlZApgYGB7cn0Kc3RkX21udGRfaW50ZXJhY3Rpb25fZm9ybXVsYSA9IGNyZWF0ZV9pbnRlcmFjdGlvbl9mb3JtdWxhKCdtbnRkX3N0YW5kYXJkJykKc3RkX21udGRfaW50ZXJhY3Rpb25fcmVzdWx0ID0gbW9kZWxfYXZlcmFnZShzdGRfbW50ZF9pbnRlcmFjdGlvbl9mb3JtdWxhLCBzdGRfbW50ZF9hbmFseXNpc19kYXRhKQpzdGRfbW50ZF9pbnRlcmFjdGlvbl9yZXN1bHRfdGFibGUgPSBtb2RlbF9zdW1tYXJ5KHN0ZF9tbnRkX2ludGVyYWN0aW9uX3Jlc3VsdCkKc3RkX21udGRfaW50ZXJhY3Rpb25fcmVzdWx0X3RhYmxlCmBgYAoKYGBge3J9CnN0ZF9tbnRkX2ludGVyYWN0aW9uX3ByZWRfcGxvdCA9IHBsb3RfZHJlZGdlX2ludGVyYWN0aW9uX3Jlc3VsdChzdGRfbW50ZF9pbnRlcmFjdGlvbl9yZXN1bHRfdGFibGUpCnN0ZF9tbnRkX2ludGVyYWN0aW9uX3ByZWRfcGxvdApnZ3NhdmUoZmlsZW5hbWUoRklHVVJFU19PVVRQVVRfRElSLCAnZmlndXJlNF9zdGRfbW50ZF9pbnRlcmFjdGlvbi5qcGcnKSkKYGBgCgojIyMgTm9ybWFsaXNlZApgYGB7cn0KbnJtX21udGRfaW50ZXJhY3Rpb25fZm9ybXVsYSA9IGNyZWF0ZV9pbnRlcmFjdGlvbl9mb3JtdWxhKCdtbnRkX25vcm1hbCcpCm5ybV9tbnRkX2ludGVyYWN0aW9uX3Jlc3VsdCA9IG1vZGVsX2F2ZXJhZ2UobnJtX21udGRfaW50ZXJhY3Rpb25fZm9ybXVsYSwgbnJtX21udGRfYW5hbHlzaXNfZGF0YSkKbnJtX21udGRfaW50ZXJhY3Rpb25fcmVzdWx0X3RhYmxlID0gbW9kZWxfc3VtbWFyeShucm1fbW50ZF9pbnRlcmFjdGlvbl9yZXN1bHQpCm5ybV9tbnRkX2ludGVyYWN0aW9uX3Jlc3VsdF90YWJsZQpgYGAKCmBgYHtyfQpucm1fbW50ZF9pbnRlcmFjdGlvbl9wcmVkX3Bsb3QgPSBwbG90X2RyZWRnZV9pbnRlcmFjdGlvbl9yZXN1bHQobnJtX21udGRfaW50ZXJhY3Rpb25fcmVzdWx0X3RhYmxlKQpucm1fbW50ZF9pbnRlcmFjdGlvbl9wcmVkX3Bsb3QKZ2dzYXZlKGZpbGVuYW1lKEZJR1VSRVNfT1VUUFVUX0RJUiwgJ2ZpZ3VyZTRfbnJtX21udGRfaW50ZXJhY3Rpb24uanBnJykpCmBgYAoKCiMjIEJlYWsgV2lkdGgKCiMjIyBTdGFuZGFyZGlzZWQKYGBge3J9CnN0ZF9nYXBlX2ludGVyYWN0aW9uX2Zvcm11bGEgPSBjcmVhdGVfaW50ZXJhY3Rpb25fZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJykKc3RkX2dhcGVfaW50ZXJhY3Rpb25fcmVzdWx0ID0gbW9kZWxfYXZlcmFnZShzdGRfZ2FwZV9pbnRlcmFjdGlvbl9mb3JtdWxhLCBzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX2RhdGEpCnN0ZF9nYXBlX2ludGVyYWN0aW9uX3Jlc3VsdF90YWJsZSA9IG1vZGVsX3N1bW1hcnkoc3RkX2dhcGVfaW50ZXJhY3Rpb25fcmVzdWx0KQpzdGRfbW50ZF9pbnRlcmFjdGlvbl9yZXN1bHRfdGFibGUKYGBgCgpgYGB7cn0Kc3RkX2dhcGVfaW50ZXJhY3Rpb25fcHJlZF9wbG90ID0gcGxvdF9kcmVkZ2VfaW50ZXJhY3Rpb25fcmVzdWx0KHN0ZF9nYXBlX2ludGVyYWN0aW9uX3Jlc3VsdF90YWJsZSkKc3RkX2dhcGVfaW50ZXJhY3Rpb25fcHJlZF9wbG90Cmdnc2F2ZShmaWxlbmFtZShGSUdVUkVTX09VVFBVVF9ESVIsICdmaWd1cmU0X3N0ZF9iZWFrX3dpZHRoX2ludGVyYWN0aW9uLmpwZycpKQpgYGAKCiMjIyBOb3JtYWxpc2VkCmBgYHtyfQpucm1fZ2FwZV9pbnRlcmFjdGlvbl9mb3JtdWxhID0gY3JlYXRlX2ludGVyYWN0aW9uX2Zvcm11bGEoJ2JlYWtfd2lkdGhfZmRpdl9ub3JtYWwnKQpucm1fZ2FwZV9pbnRlcmFjdGlvbl9yZXN1bHQgPSBtb2RlbF9hdmVyYWdlKG5ybV9nYXBlX2ludGVyYWN0aW9uX2Zvcm11bGEsIG5ybV9nYXBlX2ZkaXZfYW5hbHlzaXNfZGF0YSkKbnJtX2dhcGVfaW50ZXJhY3Rpb25fcmVzdWx0X3RhYmxlID0gbW9kZWxfc3VtbWFyeShucm1fZ2FwZV9pbnRlcmFjdGlvbl9yZXN1bHQpCm5ybV9nYXBlX2ludGVyYWN0aW9uX3Jlc3VsdF90YWJsZQpgYGAKCmBgYHtyfQpucm1fZ2FwZV9pbnRlcmFjdGlvbl9wcmVkX3Bsb3QgPSBwbG90X2RyZWRnZV9pbnRlcmFjdGlvbl9yZXN1bHQobnJtX2dhcGVfaW50ZXJhY3Rpb25fcmVzdWx0X3RhYmxlKQpucm1fZ2FwZV9pbnRlcmFjdGlvbl9wcmVkX3Bsb3QKZ2dzYXZlKGZpbGVuYW1lKEZJR1VSRVNfT1VUUFVUX0RJUiwgJ2ZpZ3VyZTRfbnJtX2JlYWtfd2lkdGhfaW50ZXJhY3Rpb24uanBnJykpCmBgYAoKIyMgSFdJCgojIyMgU3RhbmRhcmRpc2VkCmBgYHtyfQpzdGRfaHdpX2ludGVyYWN0aW9uX2Zvcm11bGEgPSBjcmVhdGVfaW50ZXJhY3Rpb25fZm9ybXVsYSgnaHdpX2ZkaXZfc3RhbmRhcmQnKQpzdGRfaHdpX2ludGVyYWN0aW9uX3Jlc3VsdCA9IG1vZGVsX2F2ZXJhZ2Uoc3RkX2h3aV9pbnRlcmFjdGlvbl9mb3JtdWxhLCBzdGRfaHdpX2ZkaXZfYW5hbHlzaXNfZGF0YSkKc3RkX2h3aV9pbnRlcmFjdGlvbl9yZXN1bHRfdGFibGUgPSBtb2RlbF9zdW1tYXJ5KHN0ZF9od2lfaW50ZXJhY3Rpb25fcmVzdWx0KQpzdGRfaHdpX2ludGVyYWN0aW9uX3Jlc3VsdF90YWJsZQpgYGAKCmBgYHtyfQpzdGRfaHdpX2ludGVyYWN0aW9uX3ByZWRfcGxvdCA9IHBsb3RfZHJlZGdlX2ludGVyYWN0aW9uX3Jlc3VsdChzdGRfaHdpX2ludGVyYWN0aW9uX3Jlc3VsdF90YWJsZSkKc3RkX2h3aV9pbnRlcmFjdGlvbl9wcmVkX3Bsb3QKZ2dzYXZlKGZpbGVuYW1lKEZJR1VSRVNfT1VUUFVUX0RJUiwgJ2ZpZ3VyZTRfc3RkX2h3aV9pbnRlcmFjdGlvbi5qcGcnKSkKYGBgCgojIyMgTm9ybWFsaXNlZApgYGB7cn0KbnJtX2h3aV9pbnRlcmFjdGlvbl9mb3JtdWxhID0gY3JlYXRlX2ludGVyYWN0aW9uX2Zvcm11bGEoJ2h3aV9mZGl2X25vcm1hbCcpCm5ybV9od2lfaW50ZXJhY3Rpb25fcmVzdWx0ID0gbW9kZWxfYXZlcmFnZShucm1faHdpX2ludGVyYWN0aW9uX2Zvcm11bGEsIG5ybV9od2lfZmRpdl9hbmFseXNpc19kYXRhKQpucm1faHdpX2ludGVyYWN0aW9uX3Jlc3VsdF90YWJsZSA9IG1vZGVsX3N1bW1hcnkobnJtX2h3aV9pbnRlcmFjdGlvbl9yZXN1bHQpCm5ybV9od2lfaW50ZXJhY3Rpb25fcmVzdWx0X3RhYmxlCmBgYAoKYGBge3J9Cm5ybV9od2lfaW50ZXJhY3Rpb25fcHJlZF9wbG90ID0gcGxvdF9kcmVkZ2VfaW50ZXJhY3Rpb25fcmVzdWx0KG5ybV9od2lfaW50ZXJhY3Rpb25fcmVzdWx0X3RhYmxlKQpucm1faHdpX2ludGVyYWN0aW9uX3ByZWRfcGxvdApnZ3NhdmUoZmlsZW5hbWUoRklHVVJFU19PVVRQVVRfRElSLCAnZmlndXJlNF9ucm1faHdpX2ludGVyYWN0aW9uLmpwZycpKQpgYGAKCgojIyBNYXNzCgojIyMgU3RhbmRhcmRpc2VkCmBgYHtyfQpzdGRfbWFzc19pbnRlcmFjdGlvbl9mb3JtdWxhID0gY3JlYXRlX2ludGVyYWN0aW9uX2Zvcm11bGEoJ21hc3NfZmRpdl9zdGFuZGFyZCcpCnN0ZF9tYXNzX2ludGVyYWN0aW9uX3Jlc3VsdCA9IG1vZGVsX2F2ZXJhZ2Uoc3RkX21hc3NfaW50ZXJhY3Rpb25fZm9ybXVsYSwgc3RkX21hc3NfZmRpdl9hbmFseXNpc19kYXRhKQpzdGRfbWFzc19pbnRlcmFjdGlvbl9yZXN1bHRfdGFibGUgPSBtb2RlbF9zdW1tYXJ5KHN0ZF9tYXNzX2ludGVyYWN0aW9uX3Jlc3VsdCkKc3RkX21hc3NfaW50ZXJhY3Rpb25fcmVzdWx0X3RhYmxlCmBgYAoKYGBge3J9CnN0ZF9tYXNzX2ludGVyYWN0aW9uX3ByZWRfcGxvdCA9IHBsb3RfZHJlZGdlX2ludGVyYWN0aW9uX3Jlc3VsdChzdGRfbWFzc19pbnRlcmFjdGlvbl9yZXN1bHRfdGFibGUpCnN0ZF9tYXNzX2ludGVyYWN0aW9uX3ByZWRfcGxvdApnZ3NhdmUoZmlsZW5hbWUoRklHVVJFU19PVVRQVVRfRElSLCAnZmlndXJlNF9zdGRfbWFzc19pbnRlcmFjdGlvbi5qcGcnKSkKYGBgCgojIyMgTm9ybWFsaXNlZApgYGB7cn0KbnJtX21hc3NfaW50ZXJhY3Rpb25fZm9ybXVsYSA9IGNyZWF0ZV9pbnRlcmFjdGlvbl9mb3JtdWxhKCdtYXNzX2ZkaXZfbm9ybWFsJykKbnJtX21hc3NfaW50ZXJhY3Rpb25fcmVzdWx0ID0gbW9kZWxfYXZlcmFnZShucm1fbWFzc19pbnRlcmFjdGlvbl9mb3JtdWxhLCBucm1fbWFzc19mZGl2X2FuYWx5c2lzX2RhdGEpCm5ybV9tYXNzX2ludGVyYWN0aW9uX3Jlc3VsdF90YWJsZSA9IG1vZGVsX3N1bW1hcnkobnJtX21hc3NfaW50ZXJhY3Rpb25fcmVzdWx0KQpucm1fbWFzc19pbnRlcmFjdGlvbl9yZXN1bHRfdGFibGUKYGBgCgpgYGB7cn0KbnJtX21hc3NfaW50ZXJhY3Rpb25fcHJlZF9wbG90ID0gcGxvdF9kcmVkZ2VfaW50ZXJhY3Rpb25fcmVzdWx0KG5ybV9tYXNzX2ludGVyYWN0aW9uX3Jlc3VsdF90YWJsZSkKbnJtX21hc3NfaW50ZXJhY3Rpb25fcHJlZF9wbG90Cmdnc2F2ZShmaWxlbmFtZShGSUdVUkVTX09VVFBVVF9ESVIsICdmaWd1cmU0X25ybV9tYXNzX2ludGVyYWN0aW9uLmpwZycpKQpgYGAKCgoKCgoK